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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONSOLE . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 



.TITLE 

. NOPATCHLI ST 
. NOMACROLIST 



"SOS Console Driver" 



SOS Console Driver 

Copyright (C) 1983 by Apple Computer Inc. 
All Rights Reserved 

Previous Copyright (C) 1980, 1981 



Revisions : 



1 . 00 



14-Nov-80 



Initial Release 



1.12 23-Sep-81 
Bug fixes : 

Download 1-8 characters. 
Download entire character set. 

Include saved screen state in console state table. 
Adjust all pointers for proper extended addressing. 
Fix SYNC to monitor positive edge of vertical blanking. 
Delete extraneous data returned by status calls 12, 13, & 14. 
Fix erase option of character and line delete. 
Extensions : 

Add video toggle on control-5. 

Add dump & restore contents of viewport. 

Change keyboard transform table to include alpha-lock data. 
Retain cursor on SYNC. 

1.30 ll-Jan-83 
Bug fixes : 

Wait for pending download on close. 

Fix branch in 40 column horizontal shift right. 

Fix cursor in dump & restore contents of viewport. 

Disable interrupts while setting events and screen mode. 
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000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 



Extensions : 

Turn on video iff buffer is empty. 

Set bit 7 on control characters read from screen 

(applies to char copy and screen read status) . 
Don't dump viewport when displaying control characters. 
Add status request 9, read screen with normal/inverse flag. 
1.31 17-Mar-83 

Fix VERIFY to eleminate noise when setting screen switches. 



DEVTYPE 
SUBTYPE 
APPLE 
RELEASE 



.EQU 
.EQU 
.EQU 
.EQU 
.PAGE 



61 
01 

0001 
1310 



The macro SWITCH performs an N way branch based on a switch index. The 
maximum value of the switch index is 127 with bounds checking provided 
as an option. The macro uses the A and Y registers and alters the C, 
Z, and N flags of the status register, but the X register is unchanged. 

SWITCH [index], [bounds], adrs_table, [*] 

index This is the variable that is to be used as the switch index. 
If omitted, the value in the accumulator is used. 

bounds This is the maximum allowable value for index. If index 

exceeds this value, the carry bit will be set and execution 
will continue following the macro. If bounds is omitted, 
no bounds checking will be performed. 

adrs_table This is a table of addresses (low byte first) used by the 
switch. The first entry corresponds to index zero. 

* If an asterisk is supplied as the fourth parameter, the 
macro will push the switch address but will not exit to 
it; execution will continue following the macro. The 
program may then load registers or set the status before 
exiting to the switch address. 



. MACRO 



SWITCH 
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r\ n n n o c 
U U U U OO 


. IF 


II O, "I II 

"5 ± 


<> " " 




,It PARM1 is present, 


n n n n o r 
U UU U 


LDA 


2- 1 






; Load A with switch index 


n n n n o t 
(J UU U o / 


. ENDC 












000088 


. IF 


" % 2 " 


<> " " 




;If PARM2 is present, 


o 9 


CMP 


#%2 + l 






; Perform bounds checking 


n n n r\ n n 

0000 90 


BCS 


$3579 






; on switch index 


000091 


. ENDC 












n n n n n o 

000092 


ASL 


A 








n n r\ ri n o 

u uu u yj 


TAY 












r\ /~i c\ r\ r\ a 

UUUU94 


LDA 


%3+l, 


Y 




; Get switch address from table 


n r\ n n n c 

u uu u y 


PHA 










; and push onto stack 


UU00 96 


LDA 


%3,Y 








n n n n n t 
U UU u y / 


PHA 












u u u u y o 


. IF 


"%4" 


<> " * 




;If PARM4 is omitted, 


n n n r\ n n 

000099 


RTS 










; Exit to code 


00100 


. ENDC 










/Otherwise, drop through 


00101 


. IF 


" % 2 " 


<> " " 






00102 $35/9 














OOOlOi 


. ENDC 












000104 


. ENDM 












00 1 o 














000106 


. INCLUDE 




CONS 


. DAT1 


. TEXT 




00010 / 


. INCLUDE 




CONS 


. DAT2 


. 1EX1 




n nn 1 no 
00 1 


. INCLUDE 




CONS 


. DAT 3 


. 1EX1 




00109 


. INCLUDE 




CONS 


. MAIN 


TP VT 

. 1EX1 




n n n i i n 
00110 


. INCLUDE 




CONS 


. READ 


. 1EX1 




n n n i i i 
00111 


. INCLUDE 




CONS 


. WRI T 


TPVT 

. 1EX1 




1 1 2 


. INCLUDE 




CONS 


. b C 1 N 


TPVT 

. 1EX1 




000113 


. INCLUDE 




CONS 


. STAT 


. TEXT 




000114 


. INCLUDE 




CONS 


. CNTL 


. TEXT 




000115 


. INCLUDE 




CONS 


. DNLD 


. TEXT 




000116 


. INCLUDE 




CONS 


.MISC 


. TEXT 




000117 


. INCLUDE 




CONS 


.UTL1 


. TEXT 




000118 


. INCLUDE 




CONS 


. UTL2 


. TEXT 





000119 

000120 .END 
000121 

; #################################################################################################### 
; # END OF FILE: CONSOLE . TEXT 
; # LINES : 121 

; # CHARACTERS : 60 5 7 

; # Formatter : Assembly Language Reformatter 1.0.2 (07 Uanuary 1998) 

; # Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 

; #################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . DAT 1 . TEXT 

#################################################################################################### 



000001 


.PROC CONSOLE 






000002 


.WORD 0FFFF 






000003 


. WORD 5 9 . 






000004 


.ASCII "Console Driver — " 




000005 


.ASCII "Copyright 


\ c ) lyoj Joy 


Apple Computer Inc." 


000006 














000007 








000008 


Device Handler Identification Block 






000009 








000010 














000011 








000012 IDBLK .WORD 0000 




; Link to next device handler 




. WUKJJ LWoLLJn 




/Entry point address 


U U U 1 4 


TD V T IT Q 

. BY IE o 




/Length of device name 


00001 5 


ASCTT " CONSOLE 






000016 


.BYTE 80,00,00 




/Device, Slot & Unit numbers 


000017 


.BYTE DEVTYPE 






000018 


.BYTE SUBTYPE 






000019 


.BYTE 






000020 


.WORD 00 






000021 


.WORD APPLE 






000022 


.WORD RELEASE 






000023 


. WORD 




/No configuration block 


000024 


.PAGE 






000025 














000026 








000027 


Global Data: 






000028 








000029 


SUSPFLSH: Suspend and Flush Output 


Flags 




000030 


7 => Suspend Output 






000031 


6 => Flush Output 






000032 








000033 


SCRNMODE: Current Screen Mode 






000034 


7 => Off / On 






000035 


6 => Text / Graphics 






000036 


2 => Page 1 / Page 2 






000037 


1 => 40 Col / 80 Col 






000038 


=> B & W / Color 







000039 
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000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 



State Flags: 

HMODE: Hardware Mode 

7 => 40 Col / 80 Col 

1 => 40 Col / 80 Col 

=> B & W / Color 

SMODE: Software Mode 

5 => Normal / Inverse 

=> Disable / Enable Cursor 



=> Disable / Enable Scroll 

=> Disable / Enable Auto Carriage Return 

Enable Auto Line Feed 

Enable Auto Advance 



=> Disable 



=> Disable 



Permanant Zero Page Data: 

BASE1, BASE2 : Screen Memory Pointers 

The base pointers point to the beginning of the current line. In 
40 column mode, BASE1 points to the ASCII data while BASE2 points 
to the color information. In 80 column mode, BASE1 points to col- 
umn of the viewport while BASE2 points to column 1. 



Temporary Zero Page Data: 
WORK1, WORK2 : 

These pointers are used in conjunction with BASE1 and BASE2 for 
scrolling, shifting, etc. 

COUNT : 

Number of bytes read or written. 
ONEBYTE : 

Boolean flag for single byte read requests. 
BLANK : 

Holds an ASCII space in the current video mode (normal or inverse) 
for use in clearing the viewport. 

TEMPX: 

Temporary storage for X. 
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000085 
000086 
000087 
000088 
000089 



FLAGS : 

Miscellaneous flags for use by SCROLL, SHIFT, SCRNDUMP, etc. 

TEMPI, TEMP 2 , TEMP 3 , TEMP 4 : 

General temporary storage for use by SCROLL, SHIFT, SCRNDUMP, etc. 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS .DAT 1 . TEXT 
89 

3512 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . DAT2 . TEXT 

#################################################################################################### 



n n n n n 1 

000001 




.PAGE 






000002 










Pi C\ Pi C\ Pi 1 
U U U U U 3 


; SOS Global Data & Subroutines 




r\ r\ r\ r\ r\ a 

000004 










00 


o U birr Lorl 


. EQU 


i y uz 


; Suspend & Flush flags 


00 00 6 


c rrD'NT'K/rr^i'PiTr 1 
dLKNMUJJil: 


. EQU 


i o, n £ 
i y U o 


; Current Screen Mode 


0000 / 


7\T T f~\f~* C T "D 

ALLUtb IK 


. EQU 


i y i o 




r\ n r\ n n n 

000008 


T~t T7 1 7\ T O O T "D 

JJxiiALCo IK 


. EQU 


1 0. 1 c 

i y i o 




r\ n r\ n n n 

000009 


r^TTTT TTXTTT'KTT' 

yUrjiLViljlNI 1 


. ti\JU 


1 Q 1 TP 




p p p p i p 

000010 


C VC1TDD 
O I OIIjKK 




1 Q O Q 

± y z o 




000011 










000012 


^ OUO ill J_ J. O -L 


Code s 






P P P P 1 q 

00 U 1 o 










n n n n 1 /i 

00014 


AKJz^U^UUJJJli 


. Hj^J u 


z u 


; Invalid request code 


UUUUlj 


XL 1 LCODE 


. EQU 


Z 1 


; Invalid controlstatus code 


00016 


XL 1 LP ARM 


. EQU 


Z Z 


; Invalid controlstatus parm 


U U 1 / 


VT\T r> T "D T? T\T 

AINU 1 Uir rjiN 


. tyu 


Z o 


; Device not open 


nn n n 1 n 

000018 


AINU 1 AV 1 J_i 


. J^U U 


z 4 


/Device not available 


n n n n 1 n 

000019 


AlMUKrjoKL- 




Z O 


/Unable to obtain resource 


n n n r\ n n 

000020 










000021 


; Ha.rd.wa.re 


I/O Addresses 






000022 










P P P P o. q 

00 Uzj 


rvAJr UK 1 


. Ilj^ U 


DC D no 




00 Uz 4 


KoF UK 1 




ULUUo 




00 Ozb 


K" YRFi c;tdd 
rv 1 l*> U o 1 r\i_> 








n n n p o r 
UUUUzb 


KYBDCLR 


.EQU 


01 


; Clear keyboard interrupt flag 


OOOOz / 


KYBDDSBL 


.EQU 


01 


/Disable keyboard interrupts 


UUUUZo 


KYBDENBL 


.EQU 


81 


/Enable keyboard interrupts 


000029 


BELL 


.EQU 


0C040 




000030 


VMODE0 


.EQU 


0C050 


/Video mode switches 


000031 


VMODE1 


.EQU 


0C052 




000032 


VMODE2 


.EQU 


0C054 




000033 


VMODE3 


.EQU 


0C056 




000034 


SCRLDSBL 


.EQU 


0C0D8 


/Disable graphics scroll 


000035 


DNLDDSBL 


.EQU 


0C0DA 


/Disable character download 


000036 


DNLDENBL 


.EQU 


0C0DB 


/Enable character download 


000037 


VBLCLR 


.EQU 


18 


/Clear both VBL interrupt flag 


000038 


VBLDSBL 


.EQU 


18 


/Disable both VBL interrupts 


000039 


VBLENBL 


.EQU 


90 


/Enable VBL interrupt on CB2 
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(J U U U4 


E_REG 


. EQU 


0FFDF 


n n n n a i 
U UU U 4 1 


E I ORB 


. EQU 


Ur t t, U 


nnnn/i o 
U U U U 4 z 


E PCR 


. EQU 


("1 IT 1 TP TP (~* 

Ur h 


(J UU (J 4 3 


E_IFR 


. EQU 


0FFED 


n n n n /i /i 

04 4 


E_IER 


. EQU 


0FFEE 


00045 


B_REG 


. EQU 


0FFEF 


046 








U U U U4 / 


; ASCII Equates 


and Special 


Keys 


n n n n /i o 
U U U U 4 o 








o o o o 4 y 


ASC_NUL 


. EQU 


p p 



nnnncn 
000050 


AbC_bOH 


. EQU 


p i 
1 


p p p p ^ ~\ 
000051 


AbC b IX 


. EQU 


p o 
02 


n n n p c o 
000052 


AbC E IX 


. EQU 


p i 
J 


n n n n c q 
DJ 


AbC ENQ 


. EQU 


p c 



p p p p c a 
000054 


AbC ACK 


. EQU 


p r 
6 


n n n p c c 
000055 


AbC Bb 


. EQU 


p o 
Oo 


n n r\ n c 

00 o 6 


AbC_HT 


. EQU 


p p 

o y 


r\ r\ r\ r\ TZ r "7 

00005 / 


ASC_LF 


. EQU 


P 7\ 

OA 


c\ r\ c\ r\ tz o 

o o 


AbC_VT 


. EQU 


P T-> 

0B 


c\ r\ c\ r\ tz c\ 

o oo o o y 


AbC_FF 


. EQU 


p r-< 

oc 


p p p p p p 

0000 60 


AbC_CR 


. EQU 


p 

0D 


000061 


AbC_NAK 


. EQU 


1 5 


p p p p r p 
000062 


AbC CAN 


. EQU 


1 8 


p p p p r q 
00006J 


AbC_EbC 


. EQU 


IB 


p p p p r a 
0000 64 


AbC_£ b 


. EQU 


1C 


n n p n r c 
0000 65 


AbC_Cb 


. EQU 


ID 


n n n n <^ r 

0000 66 


ASC_US 


. EQU 


IF 


p p p p r n 
0000 6 / 


AbC_br 


. EQU 


2 


p p p p f~ o 

00006b 


LARROW 


. EQU 


AbC_BS 


c\ r\ c\ r\ t~ c\ 

000069 


RARROW 


. EQU 


ASC_NAK 


P P P P ""7 P 

0000 10 


UARROW 


. EQU 


AbC_VT 


n n n m 1 

0000 /l 


DARROW 


. EQU 


ASC_LF 


n a n n i o 

000072 








r\ n r\ p ~i o 

0000 /o 


; Miscellaneous 


Equates 




P P P P H A 

/ 4 








P P P P H C 

0000 Id 


TRUE 


. EQU 


O P 

o 


p p p p~7 r 
0000 / 6 


FALSE 


. EQU 


p p 



P P P P H H 

/ / 


Bl 1 UN 


. EQU 


1 


P P P P H o 

/ o 


Bl 1 UN2 


. EQU 


4 


p p p n n p 

oooo / y 


Bl ION j 


. EQU 


8 


000080 


BIT0N4 


.EQU 


10 


000081 


BIT0N5 


.EQU 


20 


000082 


BIT0N6 


.EQU 


40 


000083 


BIT0N7 


.EQU 


80 


000084 


BITOFFO 


.EQU 


OFE 



Apple / / / Computer I nformation 

Environment register 
6522 input/output register B 
6522 peripheral control register 
6522 interrupt flag register 
6522 interrupt mask register 
Bank register 



Null 

Start of Header 
Start of Text 
End of Text 
Enquiry 

Acknowledgement 

Backspace 

Horizontal Tab 

Line Feed 

Vertical Tab 

Form Feed 

Carriage Return 

Negative Acknowledge 

Cancel 

Escape 

File Separator 
Group Separator 
Unit Separator 
Space 

Left Arrow 
Right Arrow 
Up Arrow 
Down Arrow 
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a a a a o c 
U OO 


BIT0FF4 


. EQU 


OEF 




n a a n o r 
00 O 6 


BIT0FF5 


. EQU 


0DF 




a n a n o t 
U U o / 


BIT0FF7 


. EQU 


U / b 




A A A A O O 

o o 


BUFMAX 


.EQU 


80 


/Maximum buffer size 


A A A A A A 

000089 


TEXTCSA 


.EQU 


OCOO 


/Text character set address 


A A A A A A 

0000 90 






.PAGE 






A A A A A 1 

000091 






















A A A A A O 

00 9z 












A A A A Ci 1 

o o o o y o 




SOS Device Handler Interface 




A A A A A A 

00094 












A A A A Q C 

o o o u y o 






















A A A A A r 

o oo u y b 












A A A A A 1 

o oo o y / 


SOSINT 


. EQU 


Off) 

LO 




A A A A A O 

o oo o y o 


REQCODE 


TPl^TT 




/SOS request code 


A A A A A A 

000099 


BUFFPTR 


TP i^>T T 


O AC T "NT T _l_ O 


/Buffer pointer 


00100 


REQCNT 


TPl^TT 




/Requested count 


00101 


RTNCNT 


TPl^TT 


C A C TMTx Q 


/Returned count 


n n n i no 

000102 


SCCODE 


. EQU 


O A O T M T ± O 


/ Status / Control code 


A A A 1 AO 

00010 j 


SCLIST 


TP P\TT 


C AC T "NT I" 1 _l_ ^ 


/ Status / Control list 


A A A 1 A A 

000104 












A A A 1 A I - 

000105 












A A A "1 A f~ 

000106 






















0010 / 












00108 




Zero Page 


Data (preserved) 


and. Zero Page Save Area. 




n n n i n n 
00109 












n n n i i n 
000110 






















000111 












n n n 1 i o 
1 1 Z 


ZPDATA 


. EQU 


oUoIInI + IO . 




r\ n n i i o 

00 1 1 J 


BASEPTRS 


TP P\TT 


r7iDr^7\T7\ _i_ n 
Lrutv 1 At U 


/ Screen memory base pointers 


A A A 1 1 /I 

00114 


BASE1 


TP P\TT 


D7\ CT?"DT'1DC-Lri 

n>R.oiL,ir IKb + U 


/ even col. / text bytes 


000115 


BASE2 




D7\ CITDTDClO 


/ odd col. / color bytes 


000116 


ZPLENGTH 


.EQU 


4 




A A A -1 1 l- 7 

0011 / 


r 








A A A 1 1 O 

1 1 o 


ZPSAVE 


.BLOCK 


ZPLENGTH 




A A A "1 1 A 

00119 












A A A 1 A A 

000120 












n n n i n 

000121 






















n n n i o o 
1 2 Z 












00012 J 




Zero Page 


Data (temporary) 






1 Z 4 












000125 






















000126 












000127 


WORKPTRS 


.EQU 


ZPDATA+ ZPLENGTH 




000128 


WORK1 


.EQU 


WORKPTRS+0 




000129 


WORK 2 


.EQU 


WORKPTRS+2 
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UUU13U 


OOUN 1 


. EQU 


WORKP 1RS + 4 


0131 


j"i TvT T7 1 T) "\7 T T7 1 

UNtBl IE 


. EQU 


COUN 1 +Z 


UUUloz 


BLANK 


. EQU 


UWhBY 1E + 1 


0U013 3 


1 hMrX 


. EQU 


BLANK+1 


000134 


FLAGS 


.EQU 


TEMPX+1 


000135 


TEMPI 


.EQU 


FLAGS+1 


000136 


TEMP 2 


.EQU 


TEMP 1+1 


000137 


TEMP 3 


.EQU 


TEMP2+1 


000138 


TEMP 4 


.EQU 


TEMP3+1 



Apple / / / Computer I nformation 

/Current I/O count 

;One byte console read flag 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS .DAT2 . TEXT 

138 

7595 

Assembly Language Reformatter 1.0.2 (07 Uanuary 1998) 

David T. Craig — 71533.60 6@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . DAT3 . TEXT 

#################################################################################################### 



n n n n n 1 

000001 




. PAGE 








n n n n n o 

000002 












f 










a r> a r> a i 

3 


r 










A A A A A /I 

000004 


; Console 


State Table 








00 


r 










00006 












r 










n n n n n t 

0000 / 


r 










A A A A A O 

U U U UU o 


OONbTTBL 


. EQU 




/Console state table 


n n n n n n 

00 00 9 












000010 


ANYKYEVNT 


. BLOCK 


5 


;Any Key Event parameters 


A A A n 1 -1 

00011 


ATTNEVNT 


. BLOCK 


5 


/Attention Event parameters 


000012 


ATTNCHAR 


. BYTE 





/Attention character 


A A A A 1 Q 

U UU U 1 o 












A A A A I /I 

000014 


DFLTTBL 


. EQU 




/This block initialized from 


a a a a i rr 

00 1 o 


r 










A A A A 1 r 

000016 


KYBDMODE 


. BYTE 







Console/Keyboard mode flag 


A A A A 1 ~1 

0001 / 


7\ 7 T — 1 7*7 T T T\ T T — 1 

NEWLINE 


. BYTE 







New Line flag 


A A A A 1 O 

000018 


NEWLNCHR 


. BYTE 







New Line character 


A A A A 1 I") 

000019 


NOWAIT 


. BYTE 







No Wait flag 


n r\ r\ n o n 

000020 


ECHO 


. BYTE 







Screen Echo flag 


000021 


CHCPYFLG 


. BYTE 







Character Copy flag 


000022 


CHOP YCHR 


. EQU 


ASC_ 


_NAK 


Character Copy character 


f~( A A A O "1 

023 


CHDELFLG 


. BYTE 







Character Delete flag 


000024 


CHDELCHR 


. EQU 


ASC_ 


_BS 


Character Delete character 


000025 


LNDELFLG 


. BYTE 







Line Delete flag 


A A A A A /*" 

000026 


LNDELCHR 


. EQU 


ASC_ 


_CAN 


Line Delete character 


A A. A A A 1 

000027 


ESCAPE 


. BYTE 







Escape Mode flag 


n n n n o o 
02c 


r 










000029 


SCRSTTBL 


.EQU 


* 


/ Screen state table 


000030 


r 










000031 


HMODE 


.BYTE 





/Hardware mode 


000032 


SMODE 


.BYTE 





/ Software mode 


000033 


TPX 


.BYTE 





/Text position 


000034 


TPY 


.BYTE 









000035 


VPL 


.BYTE 





/ Viewport 


000036 


VPR 


.BYTE 


79. 






000037 


VPT 


.BYTE 









000038 


VPB 


.BYTE 


23 . 






000039 


TCF 


.BYTE 


OF 


/Text color 
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000040 

yj yj yj yj t yj 


TCB 


. BYTE 







000041 

V V v V T -L 












000042 

yj \J yj \J T 


SCRSTLEN 


. EQU 


*-SCRSTTBL 




00004 3 












000044 

yj \J yj \J ± ^ 


DFLTLEN 


. EQU 


*-DFLTTBL 




00004 5 

\J \J \J U T ~J 












000046 

yj \J yj \J t U 


SCRSTSAV 




SCRSTLEN /Saved screen state table 


000047 












00004R 

U U U U T u 


CONSTLEN 


. EQU 


Oil JD-Li 




00 04 9 






. PAGE 






0000 so 

W \J \J \J 






















000051 

yj \J W \J -L 












000052 




Default 


Va 1 npq for ?-)1~3"t"p 


i aJoie 




000053 












000054 






















000055 

V V V V J J 












000056 

yj yj yj yj \j 


DFLTVAL 


. BYTE 


FALSE 


Console / Keyboard flag 


000057 






. BYTE 


FALSE 


Newline flag 


00005R 

u y u ij j u 






. BYTE 


ASC_CR 


Newline character 


000059 

KJ \J yj \J ~J J 






. BYTE 


FALSE 


Nowait flag 


000060 

yj \J yj yj yj yj 






. BYTE 


TRUE 


Screen echo flag 


0000 61 

U U U U U 1 






. BYTE 


TRUE 


Character copy flag 


000062 

yj yj yj yj yj i_. 






. BYTE 


TRUE 


Character delete flags 


000063 

yj yj yj yj yj 






. BYTE 


TRUE 


Line delete flags 


000064 

yj yj yj yj yj t 






. BYTE 


TRUE 


Escape mode flags 


000065 

\j \j \j \j yj 






. BYTE 


02 


Hardware mode 


000066 

yj yj yj yj yj \j 






. BYTE 


OD 


Software mode 


000067 

yj yj yj yj yj i 






. BYTE 


. 


Cursor position 


00006R 

yj \j yj \j yj yj 






. BYTE 


. 




000069 

yj yj yj yj yj _/ 






. BYTE 


0. /Viewport 


000070 






. BYTE 


79. 




000071 






. BYTE 


. 




00007? 

yj \J yj yj i ^ 






. BYTE 


23 . 




000073 

yj yj yj yj i 






. BYTE 


OF /Text colors 


000074 






.BYTE 


00 




000075 






. PAGE 






000076 






















000077 












000078 




Private 


Variable Storage 







Apple/// Computer I nformation 



000079 
000080 
000081 
000082 
000083 
000084 



KYBDBUFS 

KABUF 

KBBUF 



. EQU 
.EQU 
. EQU 



01500 
KYBDBUFS 
KYBDBUFS +BUFMAX 



/Type ahead buffers 
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Apple / / / Computer I nformation 



n n n n o c 
(J UU U OO 




. EQU 


n i n n n 
01/00 


/Keyboard transform table 


n r\ n r\ o r 


r 








n r\ n n o n 


KAUAI A 


. BYTE 


n 

u 


; Temp Storage 


r~\ n r\ r> o o 

8 8 


KBDATA 


. BYTE 


n 



; for Interrupt Processing 


n n n n o n 

00 o 9 


r 








n n n r* n n 

000090 


KEYCNT 


. BYTE 


n 



/Buffered keystroke count 


000091 


BUFSIZ 


. BYTE 


n 



/Current buffer size 


000092 


BUFHEAD 


. BYTE 


n 



/ Index of first character 


n n n n n o 

u u u u y j 


BUFTAIL 


. BYTE 


n 




/ Index of last character 


c\ r\ c\ r\ c\ a 

000094 


r 








0000 95 


OPENFLG 


. BYTE 


n 



/Device open flag 


n n n n o. r 
00009b 


READING 


. BYTE 


n 
U 


/Read in progress flag 


0000 9 / 


DSPLYCTL 


. BYTE 


n 



/Display control characters 


n n n n o. o 
9b 












n n n n n n 
000099 


orlr J_i/\LrO 


. EQU 






n n n i n n 

010 


SMINV 


. BYTE 


n 



/ Inverse video 


n n n i m 
000101 


SMCURSOR 


. BYTE 


n 



/ Cursor enabled 


000102 


SMSCROLL 


. BYTE 


n 



/ Scroll flag 


OOOlOi 


SMAUTOCR 


. BYTE 


n 



/Auto CR 


000104 


SMAUTOLF 


. BYTE 


n 



/Auto LF 


000105 


SMAUTOADV 


. BYTE 


n 



/Auto advance 


n n n 1 n ^~ 

00106 


r 








n n n i no" 
00010 / 


VPHMAX 


. BYTE 


n n 
/ 9 . 


/viewport maximum horizontal index 


n n n i no 
UUUlUo 


VPVMAX 


. BYTE 


O O 
Z J . 


/viewport maximum vertical index 


n n n i n n 
00109 


TCOLOR 


. BYTE 


nrin 
01 


/text fg/bg color byte 


n n n i i n 
000110 


f 








n n n 1 i i 
00111 


CTLINDX 


. BYTE 


n 
U 


/ function buffer index 


n n n i i o 
1 1 2 


CTLBUFF 


. BLOCK 


o 




/control function buffer 


n n n i i "5 
00 1 lo 


CTLQUOTA 


. BYTE 


n 
U 


/parameter quota 


A A A 1 1 A 

00114 


r 








000115 


DNLDFLG 


. BYTE 





/Bit 7=Active, Bit 6=Request 


n n n i i ^ 

00116 


DNLDCEL 


. BYTE 


n n 



/Current download cell number 


0011 / 


DNLDCHR 


.BYTE 


00 


/Current download ASCII code 


A A A 1 1 (-) 

000118 


DNLDIMG 


.WORD 


0000 


/Pointer to character image 


00119 






.PAGE 






n n n i on 

0012 






















n n n 1 ti 
1 2 1 












n n n i no 

000122 




Addresses 


used as subroutine parameters 


and SIR request tables 


n n n i o q 
1 2 o 












000124 






















000125 












000126 


ANYKYPARM 


.WORD 


ANYKYEVNT 




000127 


ATTNPARM 


.WORD 


ATTNEVNT 




000128 












000129 


KYBDSADR 


.WORD 


KYBDSTBL 
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000130 

lj lj U 1 J U 


KYBDSTBL 


. BYTE 


2 , 


000131 






WORD 

* V v VJ 1\ LJ 


KYRRMTH 


000132 


KYBDBANK 


. BYTE 


o 


000133 

\J \J \J X. ^J -J 


KYBDSSIZ 


. EQU 


*-KYBDSTBL 


0001 34 


r 






0001 3 5 


DNLDSADR 


WORD 

• VV vJ L\LJ 


DNT.DSTRT, 

LJ IN XJ LJ kj X J_> XJ 


000136 


DNLDSTBL 


. BYTE 


S 


0001 37 






. BYTE 


6 , 


0001 38 

y U U 1 J u 






WORD 

* v v vJ J_\ xj 


DNT.nTNT 

LJ L\ XJ XJ 1 IN 1 


0001 39 

U U W 1 J 7 


DNLDBANK 


. BYTE 


o 


000140 

vj lj vj _1_ T lj 






. BYTE 


10 

j_ LJ , \j f \j f \J , lj 


000141 


DNLDSSIZ 




J_J IN XJ LJ kJ X J ' XJ 


0001 4? 










0001 4 3 


SYNCSADR 


WORD 

* v v vJ J_\ xj 


QYNCSTRT, 

U 11n kj X J ' _LJ 


000144 


SYNCSTBL 


. BYTE 


S 

•J f LJ f LJ f \J f \J 


0001 4 5 

LJ V LJ X. T -J 


SYNCSSIZ 




kj X IN kj X XJ XJ 


0001 4 6 

uuun lj 










00147 










001 4 8 

\J \J \J -X T O 


















000149 










0001 SO 




Base 


1 ("'ill afnr SHrlrpc;^ 


± uJJXC D 


01 SI 










0001S2 


















0001 S3 










0001 S4 


BASL 


. BYTE 


000 080 000 080 

LJ LJ LJ / \J \J \J f LJ LJ LJ , LJ LJ LJ 


0001 s s 






. BYTE 


000 080 000 080 

U U U / LJ LJ LJ / LJ LJ LJ ^ U U U 


0001 56 






. BYTE 


028 0A8 028 0A8 


0001 S7 






. BYTE 


028 0A8 028 0A8 


0001 58 






. BYTE 


oso ono oso ono 

\J \J f \J LJ LJ f \J ^J LJ , \J LJ \J 


0001 S9 






. BYTE 


oso ono oso ono 

\J -J \J f LJ LJ LJ f LJ -J LJ , \J LJ \J 


0001 60 


BASH 


. BYTE 


n n 4 n n 4 nns 00S 


0001 61 

U LJ U -L LJ -L 






. BYTE 


006 006 007 007 


0001 6? 

VJ LJ VJ -L LJ 






. BYTE 


n n 4 n n 4 nns 00S 


0001 63 






. BYTE 


006 006 007 007 


000164 

LJ LJ LJ X. LJ ^ 






. BYTE 


004 004 005 005 

V L/ T | U V T ^ \J \J ^J f \J VJ ^J 


000165 






. BYTE 


006,006,007,007 


000166 

U U U ± U v 






. PAGE 




000167 


















000168 

V V V -L LJ LJ 










000169 

V V V -L KJ ~s 




Escape 


Command and Escape 


OtOP Tr3 1~ O T Tr3V~)l P S 
w jy ^ x ci l^ l_j x x ci xj _l *w o 


n n n i 7 n 










000171 


















000172 










000173 


ESCCMD 


.BYTE 


"B" 


000174 






.BYTE 


II J- II 



Apple/// Computer I nformation 



/Keyboard interrupt 



;VBL positive 
;VBL negative 



/Character download / Graphics scroll 



;VBL positive 



; Viewport bottom right 
/Viewport top left 
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Apple / / / Computer I nformation 



U U U 1 / o 


. BYTE 


11 T 7 II 

V 


; Clear Viewport 


U UU 1 / D 


. BYTE 


II g II 


; Clear Screen 


U U U 1 / / 


. BYTE 


II p II 


/Clear to End of 


U U U 1 / o 


. BYTE 


II T H 

J_i 


/Clear to End of 


01 13 


. BYTE 


"H" 


/Home Cursor 


nam on 

00 1 o 


. BYTE 


ASC_BS 


/Move left 


000181 


. BYTE 


ASC_NAK 


/Move right 


000182 


. BYTE 


AbC_VT 


/Move up 


000183 


. BYTE 


ASC_LF 


/ Move down 


000184 ECMDCNT 


. EQU 


*-ESCCMD 




00180 ; 








00018b hbCOP 


. BYTE 


AbC h 1 X 




U UU 1 o / 


. BYTE 


AbC_bTX 




n n n i o o 


. BYTE 


AbC bOn 




n aa 1 on 

00189 


. BYTE 


ASC_FS 




fin/11 n n 

000190 


. BYTE 


ASC_GS 




o o o i y i 


. BYTE 


AbC Ub 




000192 


.BYTE 


ASC_FF 




000193 


.BYTE 


ASC_BS 




000194 


.BYTE 


ASC_HT 




000195 


.BYTE 


ASC_VT 




000196 


.BYTE 


ASC_LF 





000197 

/ #################################################################################################### 

/ # END OF FILE: CONS . DAT3 . TEXT 

/ # LINES : 197 

/ # CHARACTERS : 105 9 9 

/ # Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

/ # Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 

/ #################################################################################################### 
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Apple / / / Computer I nformation 



#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . MAIN . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 



.PAGE 



Console Device Handler 

This is the device handler's entry point. It sets the extended 
addressing bytes to zero and moves in the permanant zero page 
data, then switches to the appropriate request handler. If the 
request handler modifies the permanant zero page data, it must 
call ZPOUT before it exits to SOS. 



CNSLDH 



$010 



$020 



CBADREQ 



CNOTOPEN 



CREQSW 



.EQU 

LDX 
LDY 
TYA 
STA 
CPX 
BCS 
LDA 
STA 
TYA 
DEX 
BPL 

SWITCH 



LDA 
JSR 

LDA 
JSR 

.WORD 
.WORD 
.WORD 
.WORD 



#0FF-ZPDATA 
#00 

1400+ZPDATA, X 

#ZPLENGTH 

$020 

ZPSAVE, X 
ZPDATA, X 



$010 

REQCODE, 8, CREQSW 



#XREQCODE 
SYSERR 

#XNOTOPEN 
SYSERR 

CNSLREAD-1 
CNSLWRIT-1 
CNSLSTAT-1 
CNSLCNTL-1 



; Set extend bytes to zero 



; Set up zero page data 



; Invalid request code 



/Console is not open 
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000040 

yj yj yj yj t yj 




WORD 


CBADREO-1 




000041 

yj yj yj yj t J. 




WORD 


CBADREO-1 




000042 

yj \J yj \J t iii 




WORD 


CNSLOPEN-1 

y^ iv u _lj yy i i_i in _l 




00004 3 

yj yj yj yj t ~j 




WORD 


CNSTiCT.OS — 1 




000044 




. WORD 


CNSLINIT-1 




00004 5 

yj yj yj U t ~J 




. PAGE 






000046 

yj \J yj \J t U 


















000047 

\_< yj yj yj ^ / 










000048 

yj yj yj yj t yj 




Keyboard Interrupt 


nH 1 r* 

11Q11 y^A. ±C1 




00 04 9 










000050 

yj yj yj yj yj 


















000051 










000052 

yj yj yj yj £-* 


KYBDMIH .EQU 


* 




000053 










000054 

yj yj yj yj t 




Read keyboard data 


and clear interrupt 




000055 

V V V V J J 










000056 

yj yj yj yj \j 




LDX 


#KYBDCLR 




0000 57 




LDA 


KAPORT 


• Pf^piH H^l - ^ V)P)t1~ 


0000 58 

u y u ij j u 




BMI 


$010 




00059 

\J w yj yJ -J J 




STX 


E IFR 


• Wn H^"t~3 r*£^ 3 H \7 p 1 pa r 


000060 

yj yj yj yj yj yj 




RTS 




i nl" pr rnnt - anH p> ^ "i t~ 

f _L11 L J_ J_ yj. CL 1 1 ~ J_ L- 


000061 

\J yj \J yj yj ±. 


$ 1 AND 


4RTTOFF7 




000062 

yj yj yj yj yj 




STA 


KADATA 




000063 

v v v v yj 




LDA 


KBPORT 


' Rpr3(i ^ 1" r3 1~ 11 S "OOT1" 
f ± \ ^ ol v^L O y^ <jl y^ yA o K--' J- 


000064 

yj yj yj yj yj t 




EOR 


#3C 

TT -J V- 




000065 

U U U U U J 




STA 


KRDATA 




000066 

yj yj yj yj yj \j 




STX 


E IFR 


• pi par- n nl'PTTll'O'l - 


000067 

yj yj yj yj yj i 




STX 


KYBDSTRB 


ri n fi kpvhoriTci rnbp 

f ci 1 1 yi j\_ y s^j y ci -i- o -1- yj ^ 


000068 

yj yj yj yj yj yj 




BMI 


KTHSPCT, 




000069 

\j yj yj yj yj _/ 




LDA 


KADATA 




000070 

yj yj yj yj i yj 




CMP 


#ASC CR 

TT n j y^s v^ix 




000071 
u u u u / -L 




BNE 


i\inAr ujah 




00007? 

yj yJ yJ \J ! 




LDA 






000073 




AND 


#BITON2 


; Transform CR iff 


000074 




BNE 


KIHXFORM 


; CTRL is held down 


00007 5 

\j yj \j yj i 




JMP 


KTHA1 KY 




000076 










000077 




Special key 






000078 

yj yj yj yj i yj 




Check for console 


nont" rnl c nirnn^ nHQ 

y^ yj 1 1 l l yj _i_ ^ yj i l li l l cl i i y.A. o 




000079 

yj yj yj yj i 




Do not transform 






000080 










000081 


KIHSPCL AND 


#36 


/Isolate Al, A2, CTRL, 


000082 




CMP 


#BITON2 




000083 




BEQ 


$050 




000084 


$ 1 JMP 


KIHA1KY 


;Not a console control 



Apple/// Computer I nformation 
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Apple/// Computer I nformation 



/Toggle video? 



/Flush input buffer? 



/Suspend screen output? 



/Display control characters? 



/Flush screen output? 



/Convert ASCII code to 
/ transform table index 



000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 



$050 



$060 



$070 



$080 



$090 



LDA 


KADATA 


CMP 


# " 5 " 


BCC 


$010 


BNE 


$060 


LDA 


SCRNMODE 


EOR 


#BITON7 


STA 


SCRNMODE 


RTS 




CMP 


# " 6 " 


BNE 


$070 


LDA 


#00 


STA 


KEYCNT 


STA 


BUFHEAD 


STA 


BUFTAIL 


RTS 




CMP 


# " 7 " 


BNE 


$080 


LDA 


SUSPFLSH 


EOR 


#BITON7 


STA 


SUSPFLSH 


RTS 




CMP 


# " 8 " 


BNE 


$090 


LDA 


DSPLYCTL 


EOR 


#BITON7 


STA 


DSPLYCTL 


RTS 




CMP 


# " 9 " 


BNE 


KIHA1KY 


LDA 


SUSPFLSH 


AND 


#BITOFF7 


EOR 


#BITON6 


STA 


SUSPFLSH 


RTS 





Standard key 

Transform character code 
Check for alpha lock 



KIHXFORM 
$010 



LDA 
CMP 
BCC 
CMP 
BCC 
EOR 



KADATA 

#7B 

$030 

#7E 

$020 

#0C0 
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Apple / / / Computer I nformation 



n n n i o n 
U U 1 o 




BNE 


£• n a n 
9 4 




nnni 01 


£ A O A 


AND 






nnni 10 
UUUlo/ 


9 U J U 


ORA 


# 0U0 




n n n 1 o 


£ A /I A 


TAX 






n n n 1 /i 
00 1 4 




LDA 


KBDA1 A 


; Get control & shift keys 


nnni q c 
00 1 O 




LSR 


A 




nnni or 
00 1 b 




AND 


#0 3 




1 3 / 




ORA 


XFORMTBL, X 


; OR in key number 


nnni 00 




TAX 






n n n 1 on 

ou 1 3 y 




LDA 


XFORMTBL, X 


/Need to test alpha lock? 


nnni /in 
U U U 1 4 U 




BPL 


^ a r n 
9 U u 




nnni /1 1 
0141 




LDA 


KBDAl A 


; Check alpha lock key 


nnni a 
1 4 z 




AND 


ffol 1 UN o 




nnni /1 
1 4 




BEQ 


<i n ^ n 
9 O 




nnni /1 /1 
014 4 




TXA 






nnni /1 c; 
014 




ORA 


f d! 1 UN 


; Force shift key on 


nnni /1 r 
0014b 




TAX 






A A A I /I r "7 

00014 / 


n c n 

$0o0 


LDA 


XFORMTBL, X 


; Get key code 


00148 




AND 


ffBITOFF / 




n n n 1 /in 

00 1 4 y 




STA 


TV 7\ Pi 7\ T 7\ 

KADA1 A 




nnni c n 
00 1 DO 










00151 


; Set bit 7 


according to 


Apple 1 key 




nnni ^ 
1 OZ 










nnni c o 
00 1 


K1HA1KY 


LDA 


KBDAl A 




nnni c a 
010 4 




AND 


f d! 1 UN 4 




n n n 1 c; c 
1 




BEQ 


t/t LJ i'""' TV 17 T 7 1 




nnni c r 
00 1 b 




LDA 


TV 7\ FN 7\ T 7\ 

KAUAI A 




nnni ci 
1 / 




ORA 


ffol 1 UN / 




nnni q 
1 




C 7\ 


TZ 7\ Pi 7\ T 7\ 
KADA 1 A 




nnni c n 

00 1 y 










nnni c n 
00 1 DO 


; CnecK tor 


Any Key and 


Attention events 




nnni n 

00 1 ol 










nnni r 
00 1 OZ 


KIHCKEV 


BIT 


READING 


; If reading, 


nnni a 
1 00 




BMI 


4 A 1 A 

■? U I u 


; ignore Any Key event 


nnni c /1 
1 4 




LDA 


AN I Kih VJN 1 


; Check Any Key Event 


nnni c c; 
1 




BEQ 


4 A 1 A 

■? U I u 




nnni £ £ 
1 




LDX 


A1N iKir AKM 




nnni £ i 
1 / 




LDY 


7\ l\TVTi"VD 7\ 1\/T _1_ 1 

A1N i J\ i F AKM+ 1 




n n n 1 o 
1 




JSR 


QUEF VF1\I 1 


; Queue the event 


n n n -i /~ c\ 

000169 




LDA 


#FALSE 




000170 




STA 


ANYKYEVNT 


/Disable Any Key event 


000171 




BEQ 


$020 




000172 


$010 


LDA 


ATTNEVNT 


/Check Attention Event 


000173 




BEQ 


KIHBFCH 




000174 




LDA 


KADATA 
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000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 



$020 



KIHBFCH 



$010 



$020 
$030 



CMP 


ATTNCHAR 




BNE 


TV TIT T~l T — 1 ^ T T 

KIHBFCH 




LDX 


ATTNPARM 




LDY 


ATTNPARM+I 




JSR 


QUEEVENT 


/Queue the event 


LDA 


#FALSE 




STA 


ATTNEVNT 


/Disable Attention event 


STA 


READING 


/Terminate any read in progress 


STA 


KEYCNT 


/Flush the input buffer 


STA 


BUFHEAD 




STA 


BUFTAIL 




STA 


fnrriPT on 

bUbrr LSH 


/Clear suspend & flush flags 


aracter 






LDX 


BUFSIZ 


/Buffering enabled? 


BEQ 


$030 




DEX 






CPX 


KEYCNT 


/Any room in buffer? 


BCS 


$010 




BIT 


BELL 


/Buffer overflow 


BCC 


$030 




INC 


KEYCNT 


/ Bump the key count 


LDX 


BUFTAIL 




LDA 


KADATA 




STA 


KABUF , X 


/Buffer the keystroke 


LDA 


KBDATA 




STA 


KBBUF, X 




INX 






CPX 


BUFSIZ 


/Bump buffer tail pointer 


BCC 


$020 




LDX 


#0 




STX 


BUFTAIL 




RTS 






.PAGE 







Subroutine GETKEY 

This subroutine gets the next keystroke from the type ahead buffer. 
On entry, the interrupt system must be enabled but the keyboard 
interrupt must be masked. On exit, if carry is clear, A contains 
the keyboard A port data and X contains the keyboard B port data/ 
Y is undefined. If carry is set, no data is returned/ either the 
buffer was empty and the NOWAIT flag is true, or the read was 
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nnnoon 
UUUzzU 


; terminated 


by the 


interrupt handler. 




UUUzzl 










r\ n r\ o o o 

Ozzz 


















n n n o o q 
(J UUzz J 










n r> n o o /i 

000224 


GETKEY 


. EQU 






000225 




LDA 


KEYCNT 


/Anything in the buffer? 


000226 




BNE 


$030 


; Yes 


000227 




PHP 






r\ t~\ r\ o o o 

000228 




SEI 






r\ /~i r\ o o n 

00022 9 




LDA 


SCRNMODE 




OOz 30 




ORA 


#BITON / 




OOz 3 1 




STA 


SCRNMODE 


; Turn on video 


UUUz OZ 




LDA 


E REG 




n n n o o o 
UUUz jo 




ORA 


-JJ-T) T r P/'"M\T C! 

#BI 1 UN5 




a n n o o /i 

000234 




STA 


E_REG 




n n n o o c 
0002 JO 




PLP 






002 j 6 




BIT 


NOWAIT 


/Check trie NOWAIT flag 


n n n o o "~7 

0002 j / 




BPL 


$ 1 




n n n o i n 

000238 




ASL 


READING 


/Clear the READING flag, 


000239 




RTS 




; set carry, and exit 


002 4 


r 








n n n ^ /i 1 

0241 


$010 


LDX 


BUFSIZ 


/Preserve buffer size in X 


n n n o /i o 
2 4 2 




LDA 


#1 


; Set buffer size to 1 


n n n o a q 
00024 J 




STA 


BUr S 1 Z 




n n n o /i /i 
2 4 4 




LDA 


4J- T,' \7' T") T~\ T7 1 TvT T) T 


/Unmask the keyboard 


002 4 




STA 


E IER 




00024 6 




BIT 


ESCAPE 


/In ESCAPE mode ? 


00024 / 




BVC 


$020 


/ No 


n n n o /i o 
U 02 4 




CLC 






00024 9 




LDA 


TPX 


/Preserve current cursor and 


n n n o c n 

000250 




LDY 


HMODE 


/ replace it with plus sign 


n n n o r 1 

000251 




BPL 


$015 




n n n o c t 

000252 




LSR 


A 




n n n o r t 

000253 




BCC 


$015 




n n n o c /i 
UUUzo4 




TAY 






r\ n r\ o c c 

OOz bo 




LDA 


(BASE2 ) , Y 




r\ n r\ o c ^~ 
OOz 6 




PHA 






n n n o c r 7 




AND 


#B1 1 UN / 




000258 




ORA 


JJ. o n 

#2B 




n n n o r n 

000259 




STA 


(BASE2 ) , Y 




000260 




BCS 


$020 




000261 


$015 


TAY 






000262 




LDA 


(BASE1) , Y 




000263 




PHA 






000264 




AND 


#BITON7 
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000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 



$020 



$024 
$026 



$030 



$040 



$050 
$060 



ORA 
STA 
LDA 
BEQ 
BVC 
PLA 
BCC 
STA 
BCS 
STA 
LDA 
STA 
STX 
SEC 
BIT 
BPL 

LDY 
DEC 
BNE 
LDA 
STA 
STA 
BEQ 
INC 
LDA 
CMP 
BCC 
LDA 
STA 
LDA 
LDX 
CLC 
RTS 
.PAGE 



#2B 

(BASE1) , Y 
KEYCNT 
$020 
$026 

$024 

(BASE2) , Y 
$026 

(BASE1) , Y 
#KYBDDSBL 
E_IER 
BUFSIZ 

READING 
$060 

BUFHEAD 
KEYCNT 
$040 
#0 

BUFHEAD 

BUFTAIL 

$050 

BUFHEAD 

BUFHEAD 

BUFSIZ 

$050 

#0 

BUFHEAD 
KABUF , Y 
KBBUF, Y 



/Wait for a keystroke 

;Not in ESCAPE mode 
/Restore original cursor 



Mask the keyboard 

Restore the buffer size 

Check the reading flag 
Exit with carry set 

Get buffer index of keystroke 

If KEYCNT = 

then BUFHEAD := BUFTAIL := 

else BUFHEAD := BUFHEAD + 1 
If BUFHEAD >= BUFSIZ 

then BUFHEAD := 
Load the A and B port data 



Subroutine SCRNECHO 

This subroutine writes a single character to the screen. On entry, 
the character must be in A. On exit, all registers are undefined. 



SCRNECHO 



.EQU 
BIT 



ECHO 



/Screen Echo enabled? 
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000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 



$010 



BPL 
PHA 
JSR 
PLA 
JSR 
JSR 
RTS 



$010 
CURSOR 

PRINT 

CURSOR 



/Remove cursor 

/Print the character 
/Restore cursor 



Subroutine BACKSP 

This subroutine performs the screen backspace when the console 
deletes an input character. On entry, the input buffer pointer 
must point to the character to be deleted and the overflow flag 
must be set to indicate that the character should be erased, or 
clear to indicate that it should be left on the screen. On exit, 
all registers are undefined. 



000331 


BACKSP 


. EQU 


* 




000332 




LDA 


ECHO 




000333 




BPL 


$020 


/ Screen Echo not enabled 


000334 




LDY 


#0 




000335 




LDA 


(BUFFPTR) , Y 


/Printable character? 


000336 




CMP 


#ASC_SP 




000337 




BCC 


$020 




000338 




PHP 




/Save overflow flag 


000339 




JSR 


CURSOR 


/Remove cursor 


000340 




LDA 


#ASC_BS 




000341 




JSR 


PRINT 


/ Backspace 


000342 




PLP 






000343 




BVC 


$010 


/Don't erase 


000344 




LDA 


#ASC_SP 




000345 




JSR 


PRINT 


/Erase the character 


000346 




LDA 


#ASC_BS 




000347 




JSR 


PRINT 




000348 


$010 


JSR 


CURSOR 


/Restore cursor 


000349 


$020 


RTS 







#################################################################################################### 



# END OF FILE 

# LINES 

# CHARACTERS 



CONS. MAIN. TEXT 

349 

17347 
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# Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

# Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 
#################################################################################################### 
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; #################################################################################################### 
; # PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 
; # FILE NAME: CONS . READ . TEXT 

; #################################################################################################### 
00 00 01 .PAGE 

000002 ; 

000003 ; 



000004 

V V V V V T 


Console Read 


Request 




000005 








000006 


Parameters 






000007 


BUFFPTR 


: Pointer to caller's data buffer 




000008 


REQCNT : 


Requested read count 




000009 


RTNCNT : 


Pointer to actual read count 




000010 








000011 


Zero Page 


Temporary Storage 




000012 


COUNT : 


Number of bytes read 




000013 


ONEBYTE 


: TRUE if REQCNT = 1 




000014 








000015 


If the ECHO 


or ESCAPE functions are enabled, this 


segment will call 


000016 


PRINT to display a character or perform a screen 


control function. 


000017 








000018 














000019 








00 02 CNSLREAD 


.EQU * 




000021 








000022 


Initialize read variables 




000023 








000024 




BIT OPENFLG 




000025 




BMI $010 




000026 




JMP CNOTOPEN 




000027 $010 


BIT KYBDMODE 


/Keyboard mode? 


000028 




BMI $030 




000029 




LDA SMCURSOR 


; Save cursor status 


000030 




PHA 




000031 




BMI $020 




000032 




LDA #ASC_ENQ 


/Turn on cursor 


000033 




JSR SCRNECHO 




000034 $020 


LDA #FALSE 




000035 




STA ONEBYTE 


/Clear one byte read 


000036 




LDA REQCNT+1 




000037 




BNE $04 




000038 




LDA REQCNT 




000039 




CMP #1 
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000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 



$030 



$040 



BNE 
ROR 
BMI 

LDA 
AND 
STA 

LDA 
AND 
STA 
LDA 
STA 
STA 
PHP 
SEI 
STA 
LDA 
STA 
LDA 
STA 
PLP 



Main read loop 



CNSLLOOP 

$010 
$020 



LDA 
CMP 
LDA 
SBC 
BCC 
JMP 

JSR 
BCS 
BIT 
BPL 



Keyboard mode read 



KYBDRDY 



PHA 
LDY 
STA 
INY 
TXA 
STA 



$040 

ONEBYTE 

$040 

REQCNT 

#BITOFF0 

REQCNT 

ESCAPE 
#BITON7 
ESCAPE 
#0 

COUNT 
COUNT+1 



SUSPFLSH 

#KYBDDSBL 

E_IER 

#TRUE 

READING 



COUNT 

REQCNT 

COUNT+1 

REQCNT+1 

$020 

CNSLEXIT 

GETKEY 
$010 

KYBDMODE 
TSTESCAPE 



#0 

(BUFFPTR) , Y 



(BUFFPTR) , Y 



; Set one byte read flag 



/Make requested count even 



/Clear escape pending 

/Zero bytes read count 

/Clear suspend & flush flags 
/Mask the keyboard 
/Set the READING flag 



/If COUNT >= REQCNT 
/ then goto CNSLEXIT 



/Get next keystroke 
/Console or Keyboard mode? 

/Save ASCII byte 

/ Store data byte in buffer 

/Store status byte in buffer 
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;Go update COUNT and BUFFPTR 



;Test for Escape Mode 



/Escape not pending 



/Upshift lower case alpha 
/Search for escape command 



/Not found -- clear pending flag 
/Get screen control character 

/ Is this an ESC? 
/Set escape pending 

/Test for character delete 



/Anything to delete? 



/Decrement current read count 



000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 



LDA 
JMP 

Console mode read 



TSTESCAPE 



$010 



$020 
$030 
$040 

r 

TSTCHDEL 



$010 



BIT 

BPL 
BIT 
BPL 
BVC 
LDY 
CMP 
BCC 
CMP 
BCS 
AND 
CMP 
BEQ 
DEY 
BPL 
ASL 
BCS 
LDA 
JSR 
JMP 

CMP 
BNE 
ROR 
BMI 

BIT 
BMI 
BIT 
BPL 
CMP 
BNE 
LDA 
ORA 
BEQ 
LDA 
BNE 
DEC 
DEC 
LDA 



#02 

BUMPCNT 



ECHO 

TSTCHDEL 

ESCAPE 

TSTCHDEL 

$040 

#ECMDCNT-1 
#"a" 
$010 
# " { " 

$010 

#BITOFF5 
ESCCMD, Y 
$020 

$010 

ESCAPE 

$030 

ESCOP, Y 

SCRNECHO 

CNSLLOOP 

#ASC_ESC 
TSTCHDEL 
ESCAPE 
$030 

ONEBYTE 

TSTLNDEL 

CHDELFLG 

TSTLNDEL 

#CHDELCHR 

TSTLNDEL 

COUNT 

COUNT+1 

$030 

COUNT 

$010 

COUNT+1 

COUNT 

BUFFPTR 
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UUU1 jU 




BNE 


dnnn 

9 u z u 




U U U 1 1 




DEC 


QTTT7 1 'C~ l 'n r r"D_l_ 1 


/Decrement buffer pointer 


UUUloz 


9 Uz U 


DEC 


dUe r r IK 




U UU 1 




JSR 


BACKSP 


; Backspace 


n nn 1 /i 

0001o4 


$ 03 


JMP 


CNSLLOOP 




0001 jo 










n n n i ^" 

0013b 


TSTLNDEL 


BIT 


ONEBYTE 


; Test for line delete 


n n n 1 i 

00013 / 




BMI 


TSTCHCPY 




n n n 1 00 

0001 Jo 




BIT 


LNDELFLG 




n n n 1 on 

u uu 1 3 y 




BPL 


TSTCHCPY 




nnm /in 
U U U 1 4 U 




CMP 


41-T T\T TPi IT 1 T r^uo 




U U U 1 4 1 




BNE 


TOTPUPDV 

lol CnCJr I 




Hi C\ Pi 1 A O 
U U U 1 4 Z 




LDA 


ECHO 




nnm /i q 
U U U 1 4 o 




BPL 


9 U D U 




n n n i /i /i 
U U U 1 4 4 




BVC 


9U 4 U 




nnm /i c; 
U U U 1 4 


r 








n n n i at 
U UU 14 b 


6 n i n 
9 1 


LDA 


LOUN 1 


/Anything to delete? 


nnm a h 
U U U 1 4 / 




ORA 


CUUN 1+1 




n n n i /i o 
U UU 1 4 o 




BEQ 


n ^ n 
90 bO 




n n n i /in 

u uu 1 4 y 




LDA 


CUUN 1 




n n n i c n 
U UU 1 U 




BNE 


£■ n o n 
90z0 




n n n 1 c 1 
U U U 1 1 




DEC 


COUN 1 +1 


/Decrement current read count 


U U U 1 o z 


cnin 
9 Oz 


DEC 


CUUN 1 




n n n i c; q 




LDA 


TDTTT7 1 'C~ l 'n r r"D 

BUr r r IK 




n n n i c /i 
U UU 1 4 




BNE 


£• n q n 
9 U o U 




n n n i c c 
U UU 1 




DEC 


BUr r F 1K+1 


/Decrement buffer pointer 


n n n i ^ c 
U U U 1 a b 


cn^n 
9 o 


DEC 


BUr r r IK 




n n n 1 ci 
U U U 1 / 




BIT 


LlNULLr Lb 




n n n i c o 
U UU 1 o 




JSR 


BACKSP 


/ Backspace 


n n n i c n 

o oo i o y 




JMP 


$ 1 




n n n i r n 
00 1 b0 










n n n i i 

000161 


n /i n 

50 4 


LDA 






n n n i r" o 
1 bz 




JSR 


bCKJNIBCHU 


, Write \ CR Lb 


n n n i q 
0001 DO 




LDA 


JI.t\ Op (~<T) 




1 b 4 




JSR 


C iT3 "NT IT 1 UJ 

bCKNBCnO 




1 b 




LDA 


41- 7\ C f T TP 




n n n i r~ 
0001 bb 




JSR 


SORNEOHO 




nnm c n 
01b / 


£ n c; n 
9 3 


SEC 






n n n i c o 
1 b o 




LDA 


DTTLTBTD 

BUr r F IK 


/Reset buffer pointer 


000169 




SBC 


COUNT 




000170 




STA 


BUFFPTR 




000171 




LDA 


BUFFPTR+1 




000172 




SBC 


COUNT+1 




000173 




STA 


BUFFPTR+1 




000174 




LDA 


#0 


/Reset current read count 
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;Test for character copy 



; Copy character from screen 



; Save character for new line test 
; Store character in buffer 
;Echo enabled? 

/Check for control character 



/Update current read count 



/Update buffer pointer 



/Wrap buffer at FF page 



00017 
00017 
00017 
00017 
00017 
00018 
00018 
00018 
00018 
00018 
00018 
00018 
00018 
00018 
00018 
00019 
00019 
00019 
00019 
00019 
00019 
00019 
00019 
00019 
00019 
00020 
00020 
00020 
00020 
00020 
00020 
00020 
00020 
00020 
00020 
00021 
00021 
00021 
00021 
00021 
00021 
00021 
00021 
00021 
00021 



5 
6 

7 $060 

8 / 

9 TSTCHCPY 


1 
2 
3 
4 
5 
6 
7 



CNSLRDY 



$010 
$020 

r 

BUMPCNT 



$010 



STA 
STA 
JMP 

BIT 

BPL 
BIT 
BPL 
CMP 
BNE 
JSR 
ASL 
CMP 
ROR 
EOR 

PHA 
LDY 
STA 

BIT 

BPL 
BVS 
CMP 
BCC 
JSR 
LDA 

PHA 
CLC 
ADC 
STA 
BCC 
INC 
PLA 
CLC 
ADC 
STA 
BCC 
INC 
LDA 
CMP 
BCC 
SBC 
STA 



COUNT 

COUNT+1 

CNSLLOOP 

ECHO 

CNSLRDY 

CHCPYFLG 

CNSLRDY 

#CHCPYCHR 

CNSLRDY 

SCRNPICK 

A 

#40 
A 

#BITON7 



#0 

(BUFFPTR) , Y 

ECHO 

$020 

$010 

#20 

$020 

SCRNECHO 
#01 



COUNT 
COUNT 
$010 
COUNT+1 



BUFFPTR 

BUFFPTR 

TSTNEWLN 

BUFFPTR+1 

BUFFPTR+1 

#0FF 

TSTNEWLN 
#080 

BUFFPTR+1 
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000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 



TSTNEWLN 



$010 



CNSLEXIT 



$010 
$020 



INC 

PLA 
BIT 
BPL 
CMP 
BEQ 
JMP 

ASL 
LDA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
BIT 
BMI 
PLA 
BMI 
LDA 
JSR 
JSR 
RTS 



1400+BUFFPTR+l 



NEWLINE 
$010 

NEWLNCHR 
CNSLEXIT 
CNSLLOOP 

READING 

#KYBDENBL 

E_IER 

#0 

COUNT 
(RTNCNT) , Y 

COUNT+1 
(RTNCNT) , Y 
KYBDMODE 
$020 

$010 

#ASC_ACK 
SCRNECHO 
ZPOUT 



;Test for New Line 



; Clear the READING flag 

/Unmask the keyboard 

/Return the actual byte count 



/Turn off cursor 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS. READ. TEXT 

245 

11718 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . WRIT . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 



.PAGE 



Console Write Request 

Parameters : 

BUFFPTR: Pointer to caller's data buffer 
REQCNT: Number of bytes to write 

Zero Page Temporary Storage 

COUNT: Number of bytes written 

Additional zero page data may be used to perform screen 
control functions. 



CNSLWRIT 



$010 



$020 



$030 



. EQU 

BIT 

BMI 

JMP 

JSR 

LDA 

STA 

STA 

LDA 
CMP 
LDA 
SBC 
BCS 
BIT 
BMI 
BVS 
LDY 
LDA 
JSR 
INC 
BNE 



OPENFLG 
$010 

CNOTOPEN 

CURSOR 

#0 

COUNT 
COUNT+1 

COUNT 

REQCNT 

COUNT+1 

REQCNT+1 

$060 

SUSPFLSH 
$030 
$050 
#0 

(BUFFPTR) , Y 
PRINT 
BUFFPTR 
$040 



/Remove Cursor 
/Zero COUNT 

/Check for end of buffer 



/ Go Exit 

/Check suspend and flush flags 
/ Suspend 
/ Flush 

/Get next byte 
/Print the byte 

/Bump pointer 
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000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 



$040 

$050 
$060 



INC 
BNE 
LDA 
STA 
INC 
INC 
BNE 
INC 
JMP 

LDA 
STA 

JSR 
JMP 
.PAGE 



BUFFPTR+1 

$040 

#80 

BUFFPTR+1 

1400+BUFFPTR+l 

COUNT 

$020 

COUNT+1 

$020 

#00 

CTLINDX 

CURSOR 
ZPOUT 



/Process buffer wrap around 



; Bump bytes read count 



/Clear any pending cntl function 

/Restore cursor 

/ Save Zero Page data and exit 



Subroutine PRINT 

This routine processes a single byte of output. Characters are 
printed by calling DISPLAY. Screen control functions are processed 
by accumulating any reguired parameters in CTLBUFF then switching 
to the appropriate screen control routine. 

Parameters : 

A: The byte to process 

Exit : 

A, X, Y: Undefined 



000073 


PRINT 


. EQU 


* 




000074 




LDY 


CTLINDX 


/Get control function index 


000075 




BNE 


$010 




000076 




ORA 


DSPLYCTL 




000077 




CMP 


#ASC_SP 


/Display or control? 


000078 




BCS 


DISPLAY 




000079 




TAX 






000080 




LDA 


QUOTATBL, X 


/Get function guota 


000081 




BEQ 


$020 




000082 




STA 


CTLQUOTA 




000083 




TXA 






000084 


$010 


STA 


CTLBUFF, Y 


/Save function character 
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n n n n o c 
000085 


INY 






r\ r\ o r 

00 o 6 


STY 


CTLINDX 


/Update buffer index 


000087 


CPY 


L 1 LQUO 1 A 


; See if quota filled 


000088 


BCC 


Anon 




000089 


LDY 


#0 




000090 


STY 


CTLINDX 


; Zero buffer index 


000091 


SWITCH 


CTLBUFF, , CTLSWTBL, * 




000092 $020 RTS 






r\ n n ri n o 


.PAGE 






n n n n n /i 

000094 














u u u u y o 








000096 


Subroutine DISPLAY 






000097 








000098 


This routine displays a 


single character. If auto 


advance is 


000099 


enabled, it calls CF_HT 


to advance the cursor. 




000100 








000101 


Parameters : 






000102 


A: The character 


to be displayed 




000103 








000104 


Exit : 






000105 


A, X, Y: Undefined 




000106 








000107 














000108 








000109 DISPLAY . EQU 


* 




000110 


ORA 


#80 


; set hi-bit 


000111 


EOR 


SMINV 


; set normal or inverse 


000112 


PHA 




; (for safe keeping) 


000113 


BIT 


HMODE 


, oU column text r 


000114 


BPL 


$010 




000115 


LDA 


TPX 




000116 


LSR 


A 


,80 COl: X=TPX/ 2 


000117 


TAY 




/carry bit clear? 


000118 


BCC 


$020 


; yes : use page 1 


000119 


PLA 






000120 


STA 


(BASE2) , Y 


; 80 col page two 


000121 


BCS 


$030 




000122 $010 LDY 


TPX 


,4 col : X=TPX 


000123 


LDA 


TCOLOR 




000124 


STA 


(BASE2) , Y 


; set color byte 


000125 $020 PLA 






000126 


STA 


(BASE1) , Y 


; 80 col page one 


000127 $030 BIT 


SMAUTOADV 


;if auto advance, 


000128 


BPL 


$040 




000129 


JMP 


CF_HT 


/advance cursor 
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000130 
000131 
000132 
000133 



$040 



RTS 
.PAGE 



000134 


; Control 


Function Quota. 


and Switch 


000135 








000136 














000137 


QUOTATBL 


. EQU 


* 


000138 




. BLOCK 


1, 


000139 




. BLOCK 


15 . , 1 


000140 




. BLOCK 


1, 2 


000141 




. BLOCK 


2, 1 


000142 




. BLOCK 


2, 2 


000143 




. BLOCK 


1, 2 


000144 




. BLOCK 


1 , 1 


000145 




. BLOCK 


3, 2 


000146 




. BLOCK 


1, 3 


000147 




. BLOCK 


1, 


000148 




. BLOCK 


4 , 1 


000149 


CTLSWTBL 


. EQU 


* 


000150 




. WORD 


CF NUL-1 


000151 




. WORD 


CF SOH-1 


000152 




.WORD 


CF_STX-1 


000153 




.WORD 


CF_ETX-1 


000154 




. WORD 


CF EOT-1 


000155 




. WORD 


CF ENQ-1 


000156 




. WORD 


CF ACK-1 


000157 




. WORD 


CF BEL-1 


000158 




. WORD 


CF BS-1 


000159 




. WORD 


CF HT-1 


000160 




. WORD 


CF LF-1 


000161 




. WORD 


CF VT-1 


000162 




. WORD 


CF FF-1 


000163 




. WORD 


CF CR-1 


000164 




.WORD 


CF_SO-l 


0001 65 

\J \J \J A. yj 




WORD 


CF SI-1 


000166 




.WORD 


CF_DLE-1 


000167 




.WORD 


CF_DC1-1 


000168 




.WORD 


CF_DC2-1 


000169 




.WORD 


CF_DC3-1 


000170 




.WORD 


CF_DC4-1 


000171 




.WORD 


CF_NAK-1 


000172 




.WORD 


CF_SYN-1 


000173 




.WORD 


CF_ETB-1 


000174 




.WORD 


CF_CAN-1 



Apple/// Computer I nformation 



The Control Function Quota Table 
contains the total number of 
bytes required by the function, 
including the function character 
itself. A zero indicates that 
the function is unimplemented . 



; 00 


no-op 




; oi 


Save Environment & 


Release Viewport 


; 02 


Set Viewport Upper 


Left 


; 03 


Set Viewport Lower 


Right 


; 04 


Restore Environment 


; 05 


Cursor On 




; 6 


Cursor Off 




; 07 


Audible signal 




; 08 


Backspace 




; 9 


Forward Space 




; OA 


Line Feed 




; 0B 


Reverse Line Feed 




; 0C 


Home Cursor 




; 0D 


Carriage Return 




; 0E 


Screen Off 




; OF 


Screen On 




; io 


Set Text Mode 




; 11 


Normal Video 




; 12 


Inverse Video 




; 13 


Foreground Color 




; 14 


Background Color 




; 15 


Set Text Options 




; 16 


Sync on VBL 




; 17 


Horizontal Shift 




; 18 


Go to X 
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U U 1 Id 


. WORD 


Or LM-1 


nam ~i r 

001 lb 


. WORD 


CF_SUB-1 


000177 


. WORD 


CF_ESC-1 


000178 


.WORD 


CF_FS-1 


000179 


.WORD 


CF_GS-1 


000180 


.WORD 


CF_RS-1 


000181 


.WORD 


CF_US-1 


000182 
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; 1 y 


Go to 


Y 








Go to 


X, Y 






; ib 


No-op 








; ic 


Clear 


Screen 






; id 


Clear 


to End 


of 


Screen 


; ie 


Clear 


Line 






; if 


Clear 


to End 


of 


Line 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS .WRIT . TEXT 

182 

10016 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.60 6@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . FCTN . TEXT 

#################################################################################################### 



r\ r\ r\ r\ r\ ~i 

000001 




.PAGE 






r\ r\ r\ r\ r\ o 

000002 


















a n a n n i 

000003 










r\ r\ r\ r\ r\ A 

000004 


Screen 


Control Functions 






000005 










000006 


These 


routines perform all screen control functions 




000007 










000008 


Parameters : 






000009 


All parameters are 


aCCUnlU-LaXeCl. lil UlJ-ioUrr 




000010 










000011 


Exit 








000012 


A 


r a r i . uncieiineu 






000013 










000014 


















000015 










016 CF_NUL 








00 0017 CF_ESC 


TP r\Tl 






000018 




D T C 




; NO-OP 


000019 ; 








000020 CF_SOH 


.EQU 




; Save & Release Viewport 


000021 




LDY 


ffblKo 1J_iI!j1M 




000022 $010 


LDA 


SCRSTTBL-1, Y 




000023 




STA 


SCRSTSAV-1, Y 




000024 




DEY 






000025 




BNE 


$010 




000026 




CLC 






000027 




LDA 


TPX 




000028 




ADC 


VPL 




000029 




STA 


TPX 


; retain X posn 


000030 




LDA 


TP Y 




000031 




ADC 


VPT 




000032 




STA 


TP Y 


; retain y posn 


000033 




LDA 


#0 




000034 




STA 


VPL 


; zero left margin 


000035 




STA 


VPT 


; zero top margin 


000036 




LDA 


#0FF 




000037 




STA 


VPR 


;Let VERIFY set the right 


000038 




STA 


VPB 


; and bottom margin 


000039 




JMP 


VERIFY 
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; SET VIEWPORT UPPER LEFT 



; at cursor posn 
; set left margin 



; set top margin 

reset cursor X 
and cursor Y 
and verify 

; SET VIEWPORT LOWER RIGHT 



; set left margin 
; & bottom margin 
; and verify 
; RESTORE VIEWPORT 



/ENABLE CURSOR 



/DISABLE CURSOR 



00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00006 
00006 
00006 
00006 
00006 
00006 
00006 
00006 
00006 
00006 
00007 
00007 
00007 
00007 
00007 
00007 
00007 
00007 
00007 
00007 
00008 
00008 
00008 
00008 
00008 



CF_STX 



CF_ETX 



CF EOT 



$010 



CF_ENQ 



CF_ACK 



.EQU 

CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
STA 
STA 
JMP 

.EQU 

CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
JMP 

.EQU 

LDY 
LDA 
STA 
DEY 
BNE 
JMP 

.EQU 

LDA 
ORA 
STA 
LDA 
STA 
RTS 

.EQU 

LDA 
AND 
STA 
LDA 



VPL 

TPX 

VPL 

VPT 

TP Y 

VPT 

#0 

TPX 

TP Y 

VERIFY 



TPX 
VPL 
VPR 
TP Y 
VPT 
VPB 

VERIFY 



#SCRSTLEN 
SCRSTSAV-1, Y 
SCRSTTBL-1, Y 

$010 
VERIFY 



SMODE 

#BITON4 

SMODE 

#TRUE 

SMCURSOR 



SMODE 
#BITOFF4 
SMODE 
#FALSE 
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; Sound Bell 



; BACKSPACE 



;BS at left: 



/Wrap to right 

; edge of viewport 



; ADVANCE 



; at edge? 

; no : advance 

;auto CR on? 

;yes: wrap to 
; left margin 
; & line feed 

; LINE FEED 



; at edge? 
; no : move down 
;calc base address 
;auto scroll? 



;yes: go to it 

/REVERSE LINE FEED 

; at top? 
; no : do it 



000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 



CF_BEL 



CF_BS 



$010 
$020 

r 

CF_HT 



$010 



CF LF 



$010 



CF VT 



STA 
RTS 

.EQU 

BIT 

RTS 

.EQU 

DEC 

BPL 

BIT 

BPL 

LDA 

STA 

JMP 

INC 

RTS 

.EQU 

LDA 

CMP 

BCS 

INC 

RTS 

BIT 

BPL 

LDA 

STA 

JMP 

.EQU 

LDA 
CMP 
BCS 
INC 
JMP 
BIT 
BPL 
LDA 
JMP 

.EQU 

LDA 
BEQ 
DEC 



SMCURSOR 



BELL 



TPX 
$020 

SMAUTOCR 

$010 

VPHMAX 

TPX 

CF_VT 

TPX 



TPX 

VPHMAX 

$010 

TPX 

SMAUTOCR 

CF_EXIT 

#0 

TPX 

CF LF 



TP Y 

VPVMAX 
$010 
TP Y 

TBASCAL 
SMSCROLL 
CF_EXIT 
#00 

SCROLL 



TP Y 
$010 
TP Y 
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;calc base address 
;auto scroll? 



; FORM FEED 

reset TPX 
and TPY 
calc base address 

; CARRIAGE RETURN 

/reset TPX 
;auto LF set? 

;yes: go to it 

; SCREEN OFF 



; SCREEN ON 

; SET HARDWARE MODE 

/NORMAL VIDEO 

; reset INVERSE bit 



; INVERSE VIDEO 
; set INVERSE bit 



000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 



$010 



CF FF 



CF_CR 



CF SO 



CF SI 



CF_DLE 



CF_DC1 



CF_EXIT 

r 

CF_DC2 



JMP 
BIT 
BPL 
LDA 
JMP 

.EQU 

LDA 
STA 
STA 
JMP 

.EQU 

LDA 

STA 

BIT 

BPL 

JMP 

.EQU 

LDA 
STA 
JMP 

.EQU 

LDA 
STA 
JMP 

.EQU 

LDA 
STA 
JMP 

.EQU 

LDA 
AND 
STA 
LDA 
STA 
RTS 

.EQU 

LDA 
ORA 



TBASCAL 
SMSCROLL 
CF_EXIT 
#80 

SCROLL 
* 

#0 

TPX 

TPY 

TBASCAL 



#0 
TPX 

SMAUTOLF 
CF_EXIT 
CF LF 



#FALSE 

SCRNMODE 

VERIFY 



#TRUE 

SCRNMODE 

VERIFY 



CTLBUFF+1 

HMODE 

VERIFY 



SMODE 

#BITOFF5 

SMODE 

#FALSE 

SMINV 



SMODE 
#BITON5 
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U U 1 / o 




STA 


SMODh 




00 1 / 6 




LDA 


#TRUE 




01 / / 




STA 


piyiT T\TT 7 




1 / o 




RTS 






r\ rt r\ i in 

ouoi / y 


r 








nam on 

00 1 o 


CF_DC3 


. EQU 




, FOREGROUND COLOR 


000181 




LDA 


T 1 T T1TTT — H — ' 1 1 

CTLBUFF+1 




n n n i o o 

000182 




STA 


TCF 




000183 




JMP 


VERIFY 


; set TCOLOR 


00 1 84 


r 








n n n i o c 


Or DC 4 


. EQU 




,BACKCROUND COLOR 


n a a 1 o r 

00 1 o 6 




LDA 


CTLBUFF+1 




00 1 O / 




STA 


TCB 




n n n i o o 
00 1 o o 




JMP 


T 7T7 1 T"> T T7 1 \7 

VLRlr I 


, set 1 COLOR 


o oo i o y 










oooi yo 


Or _N AK 


. EQU 


•k 


,SE1 SOr 1WARB MODB 


oooi yi 




LDA 


CTLBUFF+1 




n n n ~i no 

o oo i y z 




AND 


JJ n T-i 

#0F 




a n n 1 r\ o 

oooi y3 




STA 


CTLBUFF+1 




a a a 1 ("1 /I 

o oo i y 4 




LDA 


SMODE 


; Save bits /-4 


oooi y5 




AND 


#0F0 




oooi y 6 




ORA 


CTLBUFF+1 




n n n i dn 

o oo i y / 




STA 


SMUDh 




n n n i o. o 

oooi yy 




JMP 


VLRlr i 




n n n. i n n 

o oo i y y 










n n n o n n 
002 


Or o YN 


. EQU 




; b Y JNCHROiN 1 ZB W11H VBL 


n n n o n i 

002 01 




LDA 


#SYNCSSIZ 




n n n o n o 

000202 




LDX 


S YNCSADR 




r\ n n o n o 

OOz Oo 




LDY 


SYNCSADR+1 




A A A A A A 

000204 




JSR 


ALLOCSIR 


/Allocate CB2 for VBL 


000205 




BCS 


CF_EXIT 




n n n o n ^ 

002 6 




JSR 


CURSOR 


/Restore cursor while waiting 


n n n o n t 

00020 / 




PHP 






r\ n n o n o 

000208 




SEI 






o ooz o y 




LDA 


E_PCR 




A A A A 1 f\ 

OOz 1 




AND 


JJ 1 T-i 

#1F 




A A A A 1 -1 

OOz 1 1 




ORA 


JJ. n 

#60 


/ Set up CB2 to monitor 


A A A A 1 O 

OOz Iz 




STA 


E_PCR 


/ VBL positive edge 


n n n o i q 
OOz lo 




LDA 


JJ n o 
#08 




nnno 1 /i 
z 1 4 




STA 


E IER 




000215 




STA 


E_IFR 




000216 




PLP 






000217 


$010 


BIT 


E_IFR 


/Wait for VBL edge 


000218 




BEQ 


$010 




000219 




JSR 


CURSOR 


/Remove cursor 
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000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 



CF_ETB 
$010 

r 

CF_CAN 
$010 

r 

CF_EM 
$010 

r 

CF_SUB 



CF_FS 



CF GS 



CF_RS 



CF US 



LDA 
LDX 
LDY 
JMP 

.EQU 

LDA 
JMP 

.EQU 

LDA 
CMP 
BCC 
LDA 
STA 
RTS 

.EQU 

LDA 
CMP 
BCC 
LDA 
STA 
JMP 

.EQU 

JSR 

LDA 

STA 

JMP 

.EQU 

JSR 

JMP 

.EQU 
JMP 

.EQU 

LDA 
STA 
JMP 

.EQU 
JMP 



#SYNCSSIZ 
SYNCSADR 
SYNCSADR+1 
DEALCSIR 



CTLBUFF+1 
SHIFT 



CTLBUFF+1 

VPHMAX 

$010 

VPHMAX 

TPX 



CTLBUFF+1 
VPVMAX 
$010 
VPVMAX 
TP Y 

TBASCAL 



CF_CAN 
CTLBUFF+2 
CTLBUFF+1 
CF_EM 



CF_FF 
CLREOS 

* 

CLREOS 



#0 
TPX 

CLREOL 



CLREOL 



/Release CB2 resource 
/HORIZONTAL SCROLL 

;Go To X 

; out of range? 

; Set to right margin 

;Go To Y 

; out of range? 

; Set to top 

; get base address 

;Go To X, Y 



; CLEAR SCREEN 

; CLEAR TO EOS 
/CLEAR LINE 

; CLEAR TO EOL 
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000265 

; #################################################################################################### 

; # END OF FILE: CONS . FCTN . TEXT 

; # LINES : 265 

; # CHARACTERS : 12 87 8 

; # Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

; # Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 

; #################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . STAT . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 



.PAGE 



Console Status Request 

Parameters : 

SCCODE: Status / Control code 

SCLIST: Pointer to caller's status / control list 

Before switching to the appropriate request handling code, 
Y is set to zero. 



CNSLSTAT 



$010 



CBADCTL 



CSTATSW 



. EQU 
BIT 
BMI 
JMP 

SWITCH 
BCS 
LDY 
RTS 

LDA 
JSR 

. WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



OPENFLG 
$010 

CNOTOPEN 

SCCODE, 18 . , CSTATSW, * 

CBADCTL 

#0 



#XCTLCODE 
SYSERR 



;Is the Console open? 



; Invalid control code 



CSTAT00-1 
CSTAT01-1 
CSTAT02-1 
CSTAT03-1 
CSTAT04-1 
CSTAT05-1 
CSTAT06-1 
CBADCTL-1 
CSTAT08-1 
CSTAT09-1 
CSTAT10-1 
CSTAT11-1 
CSTAT12-1 
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; — NOP 

; 1 -- Console Status Table 



;2 New Line 



; 3 Console / Keyboard mode 



; 4 — Buffer Size 



; 5 Current Key Count 



000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 



CSTAT00 

r 

CSTAT01 



$010 
$020 



CSTAT02 



CSTAT0 3 



CSTAT04 



CSTAT05 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

RTS 

.EQU 

LDA 
CMP 
BCS 
LDA 
JSR 
LDA 
STA 
TAY 
LDA 
STA 
DEY 
BNE 
RTS 

.EQU 

LDA 
STA 
INY 
LDA 
STA 
RTS 

.EQU 

LDA 
STA 
RTS 

.EQU 

LDA 
STA 
RTS 

.EQU 

LDA 
STA 



CSTAT13-1 
CSTAT14-1 
CSTAT15-1 
CSTAT16-1 
CSTAT17-1 
CSTAT18-1 



(SCLIST) , Y 

#CONSTLEN 

$010 

#XCTLPARM 
SYSERR 
#CONSTLEN 
(SCLIST) , Y 

CONSTTBL-1 , Y 
(SCLIST) , Y 



$020 



NEWLINE 
(SCLIST) , Y 

NEWLNCHR 
(SCLIST) , Y 



KYBDMODE 
(SCLIST) , Y 



* 

BUFSIZ 
(SCLIST) , Y 



KEYCNT 
(SCLIST) , Y 



Apple / / / CONSOLE 1.31 Source Code Listing » PTC 8/ 2001 » Page 45 of 80 



Apple/// Computer I nformation 



; 6 Attention Event 



Any Key Event 



;09 — Read Screen with norm/inv 



;io 



No Wait Input 



;ii 



Screen Echo 



;12 



Character Copy 



;13 — Character Delete 



;14 



Line Delete 



000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 



CSTAT06 
$010 



CSTAT08 
$010 



CSTAT0 9 



CSTAT10 



CSTAT11 



CSTAT12 



CSTAT13 



CSTAT14 



RTS 

LDY 
LDA 
STA 
DEY 
BPL 
RTS 

LDY 
LDA 
STA 
DEY 
BPL 
RTS 

.EQU 

JSR 

EOR 

EOR 

LDY 

STA 

RTS 

.EQU 

LDA 
STA 
RTS 

.EQU 

LDA 
STA 
RTS 

.EQU 

LDA 
STA 
RTS 

.EQU 

LDA 
STA 
RTS 

.EQU 



#5 

ATTNEVNT, Y 
(SCLIST) , Y 

$010 



#4 

ANYKYEVNT, Y 
(SCLIST) , Y 



$010 



SCRNPICK 
#BITON7 
SMCURSOR 
#0 

(SCLIST) , Y 



NOWAIT 
(SCLIST) , Y 



ECHO 

(SCLIST) , Y 



CHCPYFLG 
(SCLIST) , Y 



CHDELFLG 
(SCLIST) , Y 
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;15 — Escape Functions 



;16 — Cursor Position 



;17 — Pick Character 



;18 — Screen Dump 



;If control characters are being 
; displayed, dump a null viewport 



000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 



CSTAT1 5 



CSTAT16 



CSTAT1 7 



CSTAT18 



$010 



LDA 
STA 
RTS 

.EQU 

LDA 
STA 
RTS 

.EQU 

LDA 
STA 
INY 
LDA 
STA 
RTS 

.EQU 

JSR 

ASL 

CMP 

ROR 

EOR 

LDY 

STA 

RTS 

.EQU 

LDA 

STA 

INY 

LDA 

STA 

INY 

LDA 

STA 

LDA 

BIT 

BMI 

JMP 

STA 

DEY 

STA 

RTS 



LNDELFLG 
(SCLIST) , Y 



ESCAPE 
(SCLIST) , Y 



TPX 

(SCLIST) , Y 
TP Y 

(SCLIST) , Y 



SCRNPICK 
A 

#40 
A 

#BITON7 
#0 

(SCLIST) , Y 



HMODE 
(SCLIST) , Y 

VPHMAX 
(SCLIST) , Y 

VPVMAX 
(SCLIST) , Y 
#00 

DSPLYCTL 
$010 

SCRNDUMP 
(SCLIST) , Y 

(SCLIST) , Y 
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#################################################################################################### 

# END OF FILE: CONS . STAT . TEXT 

# LINES : 174 

# CHARACTERS : 7 34 

# Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

# Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 
#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . CNTL . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 



.PAGE 



Console Control Request 

Parameters : 

SCCODE: Status / Control code 

SCLIST: Pointer to caller's status / control list 

Before switching to the appropriate request handler, Y is 
set to zero and A is loaded with the first byte of the list, 



CNSLCNTL 



$010 
$020 

f 

CCNTLSW 



. EQU 

BIT 

BPL 

SWITCH 

BCS 

LDY 

LDA 

RTS 

JMP 

JMP 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



OPENFLG 
$010 

SCCODE, 18 . , CCNTLSW, * 

$020 

#00 

(SCLIST) , Y 



CNOTOPEN 

CBADCTL 

CCNTL00-1 
CCNTL01-1 
CCNTL02-1 
CCNTL03-1 
CCNTL04-1 
CCNTL05-1 
CCNTL0 6-1 
CBADCTL-1 
CCNTL08-1 
CBADCTL-1 
CCNTL10-1 
CCNTL11-1 



/Console open? 
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p n p n /i n 
U UU U4 U 




. WORD 


CCNTL12-1 




n n n n >i 1 

U UU 04 1 




. WORD 


rT< - \7 r PT "1 O 1 

CCNTLlj-l 




n n n n /i o 
U U U U4 Z 




. WORD 


CON 1 Li 4 — 1 




Pi f~\ Pi C\ A TJ 

U U U U4 3 




. WORD 


/"I /"I T\T rp TIC 1 

CON 1 Li 5 — 1 




P P P Pi A A 

00044 




. WORD 


LOADSET-1 




P P P P A IZ 

00045 




. WORD 


LOADo-1 




000046 




. WORD 


CCNTL18-1 




P P P P A ^1 

04 / 


r 








4 8 


CCNTL00 


LDA 


E_IER 


; — Reset 


P P P P A P 

u u u u 4 y 




PHA 




; Save current interrupt state 


p p p p c n 
U UU U U 




LDA 


4J-T^"\7"IOTOTO PriT 

ffKYBDDSBL 


; and mask off interrupts 


P P P P C 1 

U UU Uol 




STA 


E IER 




P P P P c o 

U UU Uoz 




LDA 


# B U r MAX 




P P P P C 1 

UUUU jo 




STA 


TO T T T~" 1 O T <~7 

BUr S 1 A 


; Set buffer size to maximum 


P P P P C /I 

U UU Uo 4 




LDA 


#00 




n n p p c c 
U UU U O O 




STA 


TV TO \7 r~* T\T T 1 

KB I ON 1 


/Flush buffer 


p p p p c r 
U UU Uo O 




STA 


TOTTT" ' T T T~ 'Tl TO 

BUr HEAD 




P P P P C 1 

00005 / 




STA 


TO T TT — ' T 1 7\ 1 T 

BUFTAIL 




n n n r\ c o 
000058 




STA 


TO TO 7\ TOTTiTi" 

READlJNb 


; No read in progress 


r\ /"1 r\ r\ r~ n 

000059 




STA 


ANYKYEVNT 


/Disable any key event 


0000 60 




STA 


7\ r P r "PTvTT — 'T TATT" 1 

ATTNEVNT 


/Disable attention event 


n n n n r i 

000061 




STA 


T 1 T "TTVTTO\7 r 

CTLINDX 


/Abort control function in progress 


000062 




STA 


TO O T~i T \7 O r T l T 

DSPLYCTL 


/Clear display control char, flag 


p p p p r 

U UU U J 




STA 


f~* T T O TO t — 1 t nn 

SUSPFLSH 


/ Clear suspend & flush output flags 


n n n p r a 
U UU U b4 




JSR 


t~* t tto p r\n 

CURSOR 


/Remove cursor 


p p p p r c 
U UU U 00 




LDX 


-JJ- TO I - 1 T T T TT 'T\T 

#Dt L 1 LEJN 




p p p p r r 
U UU U O O 


(2 p 1 n 
9 U 1 U 


LDA 


OTTT TT 77\ T 1 \7 

Db L 1 VAL— 1 , X 


/Copy configuration block 


P P P P c 1 

UUUUb / 




STA 


TO TT 1 T TTTTT 1 \7" 

Dr LI 1 BL— 1 , X 




p p p p f 
U UU U bo 




DEX 






p p p p r p 

000069 




BNE 


$ 1 




/ 




JSR 


CF_S0H 


/ Save screen state & verify 


000071 




JSR 


CURSOR 


/Restore the cursor 


p p p p "~i p 

000072 




JSR 


ZPOUT 


/ Save screen zero page 


UUUU 13 




PLA 






P P P P "~l A 

0000 /4 




AND 


i\ TT" \ 7 TO TO T — 1 TV T TO T 

#KYBDENBL 


/Restore previous interrupt state 


P P P P ""7 {Z 

UUUU lb 




ORA 


11 T-i T T 1 ATT *~l 

#BIT0N / 




p p p p"~i r 

UUUU lb 




STA 


E_IER 




P P P PH H 

UUUU / / 




RTS 






p p p p "~l 

UUUU lo 


r 








p p p p "~l p 

0000 13 


CCNTLO 1 


. EQU 




, 1 — Console Status Table 


000080 




CMP 


#C0NSTLEN 




000081 




BEQ 


$010 




000082 




LDA 


#XCTLPARM 




000083 




JSR 


SYSERR 




000084 


$010 


JSR 


CURSOR 
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nnnno c 
U U U U oo 




LDY 


#OONb 1 LEN 


n n n n o r 


£■ n o n 
9 Uz U 


LDA 


( SOLI b 1 ) , i 


UUUUo / 




DEY 




n n n n o o 




STA 


CON S 1 1 BL , I 


n n n n o n 

u u u u o y 




BNE 


(■/ion 


r\ r\ r\ r\ a r\ 

uu u y u 




JSR 


VERIFY 


n n n n n 1 




JSR 


f~* T TT"> C ^iTO 

CURSOR 


U UU U yz 




JSR 


ZPOUT 


n n r\ /i n o 

u uu u yj 




RTS 




u uu u y 4 








n n n n n c 

u uu u y 


CLN 1 LUz 


. EQU 


•k 


n n n n n r 

u uu u y 




AND 


#BI ION / 


u uu u y / 




STA 


NEWL1NE 


n n n n o o 

U u u u y o 




INY 




n n n n o, o. 

u u u u y y 




LDA 


( SCL1 b 1 ) , I 


nnni n n 
U UU 1 U U 




STA 




U UU 1 U 1 




RTS 




U UU 1 Uz 








nnni no 
U UU 1 U 3 


CCN 1 LU o 


. EQU 


•k 


n n n i n /i 
U U U 1 U 4 




AND 


#B1 1 ON / 


U UU 1 U b 




STA 


KYBDMODE 


n n n i n /" 
U UU 1 U 




RTS 




U U U 1 u / 








nnni no 
U U U 1 U o 


CON 1 LU 4 


. EQU 




nnni n n 

u uu i u y 




CMP 


-JJ-TOTTT7 l T\/T7\\7' 1 1 


U U U 1 1 u 




td r* 
BOO 


4 n i n 
9 U 1 U 


nnni i i 
U U U 1 1 1 




LDA 


4l-vr^ r rT to 7\ to i\/r 


nnni i o 
U U U 1 1 z 




JSR 




U UU 1 1 o 


9 U I U 


LDX 


-IJ- TV TO T\ TO O TO T 

ffKYBDDSBL 


U UU 1 1 4 




STX 


E_IER 


00115 




STY 


KEYCNT 


000116 




STY 


BUFHEAD 


U UU 1 1 / 




STY 


BUr 1A1L 


OOOlle 




STA 


BUFSIZ 


u uu 1 1 y 




LDX 


#KYBDENBL 


nnni on 
U U U 1 z U 




STX 


E IER 


nnni o i 
U U U 1 Z 1 




RTS 




nnni o o 
U U U 1 z Z 


r 






nnni o o 
U U U 1 z o 


CON ILUj 


LDA 


E IER 


000124 




PHA 




000125 




LDA 


#KYBDDSBL 


000126 




STA 


E_IER 


000127 




STY 


KEYCNT 


000128 




STY 


BUFHEAD 


000129 




STY 


BUFTAIL 



Apple / / / Computer I nformation 



;2 New Line 



; 3 Console / Keyboard mode 



; 4 — Buffer Size 



;5 — Flush Buffer 
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000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 



CCNTL0 6 



$010 



CCNTL08 



$010 



CCNTL10 



CCNTL11 



CCNTL12 



CCNTL13 



PLA 
AND 
ORA 
STA 
RTS 

PHP 
SEI 
LDY 
LDA 
STA 
DEY 
BPL 
PLP 
RTS 

PHP 
SEI 
LDY 
LDA 
STA 
DEY 
BPL 
PLP 
RTS 

.EQU 
AND 
STA 
RTS 

.EQU 
AND 
STA 
RTS 

.EQU 
AND 
STA 
RTS 

.EQU 

AND 
STA 
RTS 



#KYBDENBL 
#BITON7 
E IER 



#5 

(SCLIST) , Y 
ATTNEVNT, Y 



$010 



#4 

(SCLIST) , Y 
ANYKYEVNT , Y 

$010 



#BITON7 
NOWAIT 



#BITON7+BITON6 
ECHO 



#BITON7 
CHCPYFLG 



#BITON7+BITON6 
CHDELFLG 



; 6 Attention Event 



; 8 — Any Key Event 



; 10 — No Wait Input 



;11 — Screen Echo 



; 12 — Character Copy 



;13 — Character Delete 
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000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 



CCNTL14 



CCNTL15 



CCNTL18 



$010 



$020 



$030 



. EQU 

AND 
STA 
RTS 

.EQU 

AND 
STA 
RTS 

.EQU 

BIT 

BMI 

INY 

EOR 

BMI 

LDA 

CMP 

BNE 

INY 

LDA 

CMP 

BNE 

LDA 

JMP 

LDA 
INY 
ORA 
BNE 
RTS 

LDA 
USR 



#BITON7+BITON6 
LNDELFLG 



#BITON7 
ESCAPE 



DSPLYCTL 
$020 

HMODE 
$010 

(SCLIST) , Y 
VPHMAX 
$010 

(SCLIST) , Y 
VPVMAX 
$030 
#80 

SCRNDUMP 

(SCLIST) , Y 

(SCLIST) , Y 
$030 



#XCTLPARM 
SYSERR 



;14 — Line Delete 



;15 — Escape Functions 



;18 — Restore contents of viewport 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS . CNTL . TEXT 

210 

9290 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.60 6@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . DNLD . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 



.PAGE 



Subroutine LOADCHR 

This subroutine is called to load an ASCII code and a character 
image into one of the character download cells in the text pages. 

LOADCHR requires four bytes of zero page storage for pointers. In 
order to make it callable from either a device handler or an 
interrupt processor, all zero page references are indexed by X. 
On entry, the X register must contain the zero page offset to the 
character image pointer. The two bytes following the image 
pointer are used to address the download locations in the text 
page. 

Input Parameters: 

DNLDCEL — character download cell number: [0,7] 

DNLDCHR — ASCII character code: [0,7F] 

X reg -- zero page offset to pointers 

(0,X) image pointer set by caller 

(2,X) download cell pointer set by LOADCHR 

On exit, DNLDCEL, DNLDCHR, and X will be unchanged. The image 
pointer will have been incremented by eight. A and Y are destroyed. 



000029 


DIMGPTR 


.EQU 


00 


; Zero page pointer to image 


000030 


DCELPTR 


.EQU 


02 


; Zero page pointer to cell 


000031 


r 








000032 


LOADCHR 


.EQU 






000033 




LDY 


#00 


;Use Y for row counter 


000034 


$010 


LDA 


DNLDCEL 


; Set up cell pointer 


000035 




AND 


#03 


; for ASCII code 


000036 




ORA 


DCPTRL, Y 




000037 




STA 


DCELPTR, X 




000038 




LDA 


DNLDCEL 




000039 




LSR 


A 
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U UU U4 U 


LSR A 










n n n n /i i 
U UU U4 1 


OP I #04 










n n n n a o 
U U U U4 Z 


ROL A 










n n n n /i q 
U U U U4 6 


OKA #08 










r\ r\ r\ r\ a a 

00044 


STA DCELPTR+1,X 










n n n a /i u. 

00045 


LDA DNLDCHR 








Store ASCII code into 


046 


STA (DCELPTR,X) 








download cell 


00004 / 


LDA DCELPTR+1,X 








Fix cell pointer 


U U U U 4 


EOR #0C 








for character image 


00004 9 


STA DCELPTR+1,X 










000050 


LDA (DIMGPTR, X) 








Store character image 


000051 


STA (DCELPTR, X) 








into download cell 


000052 


INC DIMGPTR, X 








Increment the image pointer 


000053 


BNE $020 










000054 


INC DIMGPTR+1,X 










000055 $020 INY 






; Increment the row number 


000056 


CPY #08 










000057 


BCC $010 






;Not done yet 


000058 


RTS 










000059 ; 










000060 DCPTRL . EQU * 






/Table of download cell addresses 


000061 


.BYTE 078, 07C, 0F8, 0FC 








000062 


.BYTE 078, 07C, 0F8, 0FC 








000063 


.PAGE 










000064 






















000065 












000066 


Subroutine DNLDINT 










000067 












000068 


This subroutine processes the VBL interrupt 


that 


signals the 


000069 


completion of a character download cycle. 


If the 


REQUEST bit of 


000070 


DNLDFLG is set, another block of eight 


characters 


will be 


000071 


downloaded; otherwise, the CB1 and CB2 


resources 


will be 


000072 


released and the ACTIVE bit will be cleared 


DNLDINT assumes 


000073 


that the X register points to a four byte area on 


the zero page 


000074 


that can be used for LOADCHR. 










000075 












000076 






















000077 












000078 DNLDINT .EQU * 










000079 


BIT DNLDDSBL 






/Disable download 


000080 


LDA #VBLDSBL 










000081 


STA E_IER 






/Mask VBL interrupts 


000082 


BIT DNLDFLG 






/Test REQUEST bit 


000083 


BVC $030 










000084 


CLI 






/Enable interrupts 
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n n n n o o 


LDA 


#0 / 




000086 


STA 


"Pi "NTT nf I? T 

DIN LULL Li 


; btart witn cell / 


000087 


LDA 


"Pi'ntt n Ti^/ir 1 
JJJNLUlMb 




000088 


STA 


JJlMCjJr IK, X 


; Set up iMAbhj pointer 


000089 


LDA 


"Pi'ntt p> t iv/r ^ — ■ _i_ 1 




000090 


STA 


P\ T I\ l\ (~* Pi T 1 P) 1 1 \7 

D IMbr 1 R+ 1 , X 




000091 $010 JSR 


t j^7\Pi^nP) 

LbADbHR 


/Load one character image 


000092 


INC 


DJNLDbHR 


; Bump character code 


000093 


BPL 


£ n o n 




000094 


ASL 


P\T\TT HPT 

DJNLDr Lb 


/blear REQUESl £>it 


000095 $020 DEC 




; Bump cell number 


000096 


BPL 


9 U 1 U 


;More to do 


000097 


LDA 


RTMrTlTD V 

UllYlbF IK, A 




000098 


STA 


DNLL) 1Mb 


; bave iMAbiij pointer 


000099 


LDA 


P\ T I\ l\ (~* Pi T 1 P) 1 1 \7 

D IMbr 1 R+ 1 , X 




000100 


STA 


DJNLDlMb+1 




000101 


JMP 


"PiT\TT Pi f~* f~\ 

DJNLD b(J 


; Enable downloading 


000102 ; 






000103 $030 ASL 


P\"MT HPT 

DNLDi Lb 


. fi 1 T\ PTTT7P U J 4- 

/blear AbiiVE Dit 


000104 


LDA 


11 T^, "NTT T" \ O O T F7 

#DNLDSS I Z 




000105 


LDX 


DNLDSADR 




000106 


LDY 


T" \ T»TT "T^i (~* 7\ T" \ T~l 1 "1 

DNLDSADR+1 




000107 


JSR 


DEALbSIR 


/Deallocate sirs 


000108 


RTS 






000109 


.PAGE 






000110 














000111 








000112 


Subroutine GETSIRS 






000113 








000114 


This subroutine allocates 


SIRS 5 & 6 


and initializes them to 


000115 


monitor VBL for character 


downloading 


It trie SIRs can not be 


000116 


allocated, it sets an error code and 


returns directly to the 


000117 


dispatcher . 






000118 








000119 














000120 








000121 GETSIRS . EQU 


* 




000122 


BIT 


DNLDFLG 


/Wait for any previous 


000123 


BMI 


GETSIRS 


/ request to finish 


000124 


LDA 


#DNLDSSIZ 




000125 


LDX 


DNLDSADR 




000126 


LDY 


DNLDSADR+1 




000127 


JSR 


ALLOCSIR 




000128 


BCS 


$010 




000129 


PHP 
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nnni on 




SE I 










nnni o i 
1 3 1 




LDA 






E_PCR 


Set OBI to monitor VBL 


00 1 




AND 






#0F 


negative edge and 


nnni o o 

000133 




ORA 






JJ- r n 

#60 


CB2 to monitor 


000134 




STA 






E_PCR 


positive edge 


000135 




LDA 






ffVBLDSBL 




000136 




STA 






E_IER 




000137 




PLP 










000138 




RTS 










000139 ; 












000140 $010 


PLA 








pull caller s 


U 1 4 1 




PLA 








address, and 


nnni a o 




LDA 






#XNORESRC 


return to dispatcher 






JSR 






p v p t 1 n n 

S I SERR 


with an error 


n n n i /i a 
U U U 1 4 4 




.PAGE 










nnni /i c 
U U U 1 4 


























U U U 1 4 b 














nnni a h 
014 / 


Subroutine 


LOADSET 










000148 














000149 


This subroutine is 


called to initiate downloading of 


the entire 


000150 


text screen 


character 


set. LOADSET calls GETSIRS to 


set up the 


000151 


6522 to monitor VBL 


and 


interrupt on the negative edge. It then 


000152 


copys the character 


set 


to the screen's local data area, sets the 


000153 


request bit 


, and enables 


the VBL interrupt. The VBL 


interrupt 


000154 


processor, 


DNLDINT, 


will 


complete the actual downloading. 


000155 














000156 


Parameters : 










000157 


SCLIST 


: Pointer 


to 


caller's 1024 byte character set 


000158 














000159 


Zero Page 


Temporary 


Storage : 




000160 


WORK1 : 


Pointer to 


system's character set 




000161 














000162 


























000163 














000164 LOADSET 


.EQU 






* 




000165 




JSR 






GETSIRS 




000166 




LDA 






#TEXTCSA%100 




000167 




STA 






WORK1 




000168 




STA 






DNLDIMG 




000169 




LDA 






#TEXTCSA/100 




000170 




STA 






WORK1+1 




000171 




STA 






DNLDIMG+1 




000172 




LDA 






#ASC_NUL 




000173 




STA 






DNLDCHR 




000174 




LDX 






#4 ; Set X to move 4 pages 
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U U U 1 / 3 


LDY 


#0 ; Set Y to move full page 


n n n i n r 
UUU1 lb 


LDA 


SCL1 S 1+1 


000177 


CMP 


11 OTTT3 

#U1 B 


000178 


BCC 


£ n i n 
9 U 1 U 


000179 


SBC 


#080 /Adjust address to avoid 


000180 


STA 


SCLIST+1 ; bank wrap around 


000181 


INC 


14U0+SCLIST+1 


000182 $010 LDA 


(bCLlbl),Y ; Copy character set to 




b 1 A 


(W0RK1),Y ; text char set buffer 


000184 


INY 




n n n i o c 
00 1 8 


BNE 


9 U 1 U 


UUUloo 


INC 


C T T C T 1 1 1 


n n n i q i 
UUUlo / 


INC 


WUKKl + 1 


n n n i oo 
UUUloo 


DEX 




u u u i o y 


BNE 


9 U 1 U 


nnni on 

U U U i y u 


LDA 


ffUCU ; Set download active 


n n n i 01 
U U U 1 y 1 


STA 


DNLDl Lb ; ana request flags 


n n n i no 

uuui yz 


LDA 


#VBLENBL 


n n n i o q 
UUUI yj 


STA 


E_IER /Enable interrupts in VBL 


n n n 1 o a 
U U U 1 y 4 


RTS 




n n n i n c 

uuui yo 


.PAGE 




n n n 1 n r 

u u u i y D 










nnm q i 
u u u J- y / 






n n n i no 
U U U 1 y o 


Subroutine LOAD 8 




n n n i no 

U U u i y y 






r\ r\ r\ ^ r\ r\ 
UUU2UU 


This subroutine is called to download up to eight text character 


n n n o n i 
UUU2U1 


images. LOAD 8 calls GETSIRS to set up the 6522 to monitor VBL 


n n n o n o 

UOUzOz 


and interrupt on the negative edge. It then loads the character 


n n n o n "5 
UUUzUj 


images into the screen' 


s download cells and enables downloading 


000204 


and the VBL interrupt. 


The download operation is completed by 


000205 


the interrupt processor 


DNLDINT . 


000206 






000207 


Parameters : 




000208 


SCLIST: Pointer to caller's character sets 


000209 






000210 


Zero Page Temporary Data: 


000211 


COUNT: Number of 


characters to download 


000212 


WORK1 : Pointer to 


character image for LOADCHR 


000213 


WORK 2 : Work area 


for LOADCHR 


000214 






000215 










000216 






000217 LOAD 8 . EQU 


* 


000218 


CMP 


#01 /Check download count 


000219 


BCS 


$010 
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; Too many 



; Bump list address 

; to first character 



; Get character code 

; Bump list address 

; to character image 



; Set up address of character 
; image in COO to FFF space 



; Copy character image 
; to COO image space 



/Download this character 



000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 



$010 



$020 



$030 
$040 



$050 



$060 



RTS 

CMP 
BCC 
LDA 
JSR 

STA 
JSR 

INC 
BNE 
INC 

LDA 
STA 

LDY 
LDA 
STA 
INC 
BNE 
INC 

LDA 
STA 
LDA 
ASL 
ASL 
ROL 
ASL 
ROL 
STA 

LDY 
LDA 
STA 
DEY 
BPL 

DEC 
LDX 
JSR 

LDA 



#09 
$020 

#XCTLPARM 
SYSERR 

COUNT 
GETSIRS 

SCLIST 

$030 

SCLIST+1 
#08 

DNLDCEL 
#00 

(SCLIST) , Y 
DNLDCHR 
SCLIST 
$050 

SCLIST+1 

#03 

WORK1+1 

DNLDCHR 

A 

A 

WORK1+1 
A 

WORK1+1 
WORK1 

#07 

(SCLIST) , Y 
(WORK1) , Y 

$060 

DNLDCEL 

#WORKl 

LOADCHR 

DNLDCEL 
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000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 



$070 



DNLD_GO 



$080 



$090 



CMP 


COUNT 




BCS 


$050 


; Do same character again 


LDA 


Ji r\ o 

#08 




ADC 


SCLIST 


; Bump list address 


STA 


SCLIST 


; to next character 


BCC 


$070 




INC 


SCLIST+1 




DEC 


COUNT 




BNE 


$040 




LDA 


#080 


; Set download active 


STA 


DNLDFLG 




BIT 


DNLDENBL 




LDA 


# VBLCLR 




STA 


E_IFR 


; Clear both VBL flags 


BIT 


E_IORB 


/Check composite blanking 


BVC 


$090 




BIT 


E_IFR 


/Check VBL flags 


BEQ 


$080 




STA 


E_IFR 


/Clear VBL flags 


LDA 


#VBLENBL 


/Enable VBL interrupt 


STA 


E_IER 




RTS 







#################################################################################################### 

# END OF FILE: CONS . DNLD . TEXT 

# LINES : 288 

# CHARACTERS : 14 80 6 

# Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

# Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 
#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . MISC . TEXT 

#################################################################################################### 



000001 




. PAGE 




000002 














000003 








000004 


Console 


Open Request 




000005 








000006 














000007 








000008 CNSLOPEN 


. EQU 




000009 




BIT 


OPENFLG 


000010 




BPL 


$010 


000011 




LDA 


#XNOTAVIL 


000012 




JSR 


S YSERR 


000013 








000014 $010 


LDA 


#KYBDSSIZ 


000015 




LDX 


KYBDSADR 


000016 




LDY 


KYBDSADR+1 


000017 




JSR 


ALLOCSIR 


000018 




BCS 


$020 


000019 




LDA 


#TRUE 


000020 




STA 


OPENFLG 


000021 




JSR 


CCNTLO 


000022 




PHP 




000023 




SEI 




000024 




LDA 


E_PCR 


000025 




AND 


#0F1 


000026 




ORA 


JJ. n r\ o 

#002 


000027 




STA 


E_PCR 


000028 




PLP 




000029 




LDA 


#KYBDCLR 


000030 




STA 


E_IFR 


000031 




BIT 


KYBDSTRB 


000032 




LDA 


#KYBDENBL 


000033 




STA 


E_IER 


000034 




CLC 




000035 




RTS 




000036 ; 






000037 $020 


LDA 


#XNORESRC 


000038 




JSR 


SYSERR 


000039 




.PAGE 





/Console open? 
; No 



/Allocate the keyboard interrupt 



; Set console open 

/Reset console parameters 



/ Set up keyboard interrupt 



/Clear keyboard flag 
/Clear the keyboard strobe 

/Unmask keyboard interrupts 



/Couldn't get keyboard resource 
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000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 



Console Close Request 



CNSLCLOS 



$010 



. EQU 

ASL 
BCS 
JMP 

BIT 
BMI 
LDA 
STA 
BIT 
LDA 
LDX 
LDY 
JSR 
RTS 
.PAGE 



OPENFLG 
$010 

CNOTOPEN 

DNLDFLG 
$010 

#KYBDDSBL 

E_IER 

KYBDSTRB 

#KYBDSSIZ 

KYBDSADR 

KYBDSADR+1 

DEALCSIR 



/Console open? 
Yes 



/Wait for pending download 



/Mask keyboard interrupts 
/Clear the keyboard strobe 



/Deallocate the keyboard interrupt 



Console Initialization Request 



000068 CNSLINIT 


.EQU 


* 




000069 


LDA 


#FALSE 




000070 


STA 


OPENFLG 




000071 


LDA 


B_REG 


/Set bank register for 


000072 


STA 


KYBDBANK 


/ keyboard and download 


000073 


STA 


DNLDBANK 


/ interrupt handlers 


000074 


LDA 


#TEXTCSA%100 


/ Set up character download 


000075 


STA 


SCLIST 




000076 


LDA 


#TEXTCSA/100 




000077 


STA 


SCLIST+1 




000078 


LDA 


#00 




000079 


STA 


1400+SCLIST+l 




000080 


JSR 


LOADSET 




000081 


CLC 






000082 


RTS 







000083 
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#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS .MISC . TEXT 
83 

4017 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.60 6@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . UTL1 . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 



.PAGE 



Subroutine VERIFY 

This subroutine checks the screen's hardware mode, software mode, 
and viewport parameters for self consistency. It also sets the 
screen switches and the following internal variables: 

HMODE, SMINV, SMCURSOR, SMSCROLL, SMAUTOCR, SMAUTOLF, 

SMAUTOADV, VPHMAX, VPVMAX, and TCOLOR 

Parameters : none 



Exit : 

A, X, 



Undefined 



000019 


VERIFY 


.EQU 




000020 




LDA 


HMODE 


000021 




AND 


#03 


000022 




ASL 


A 


000023 




CMP 


#04 


000024 




BCC 


$010 


000025 




LDA 


#04 


000026 


$010 


ROR 


A 


000027 




STA 


HMODE 


000028 




LDY 


SMODE 


000029 




LDA 


#00 


000030 




LDX 


#5 


000031 


$020 


STA 


SMFLAGS, X 


000032 




LSR 


SMODE 


000033 




ROR 


SMFLAGS, X 


000034 




DEX 




000035 




BPL 


$020 


000036 




STY 


SMODE 


000037 




LDA 


#79. 


000038 




BIT 


HMODE 


000039 




BMI 


$100 



Validate HMODE 

and set 80 column 
flag in bit 7 



/Preserve SMODE 



;Set SMODE flags 



; Screen width 
then 79. 



If 80 column, 
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U UU U4 U 




LDA 


toy . 


; else o y . 


p p p p a 1 
U U U U 4 1 


9 1UU 


CMP 


VPR 


, VFK <— bcreen widtn 


n n n n /i o 
U U U U4 Z 




BCS 


£ i 1 p 
9 1 1 U 




p n n n a q 
U U U U 4 o 




STA 


VPR 




n n n n /i /i 
(J UU U 4 4 


? 1 1 


LDA 


VPR 




n n n n a c 
U UU U 4 




CMP 


VPL 


; VPL <— VPR 


U U U U 4 




BCS 


£ 1 O P 

Iz U 




n n n n /i t 

UUUU4 / 




STA 


VPL 




n n n n /i o 
U U U U 4 o 


9 lz U 


SEC 






u u u U4 y 




LDA 


VPR 


; VP HMAX : = 


UUUU jU 




SBC 


VPL 


• T TT> T> T TT> T 

; VrK — VrL 


p n n n c ~i 
U UU Uol 




STA 


VPHMAX 




UUUUoz 




CMP 


TPX 


. T , T")V / T 7T) UT\/\7\ V 

; IF A <— VP UMAX 


n n n n c o 
UUUU jo 




BCS 


£■ o n n 
9ZUU 




p p p p c a 
U U U U O 4 




STA 


TPX 




n n n n c c 
U UU U 


£ o n n 


LDA 


-W- O Q 

#Z J . 




p p p p c r 
UUUUoo 




CMP 


VPB 


; VPB <= Screen height 


UUUUo / 




BCS 


$zlU 




p p p p c o 
UUUUoo 




STA 


VPB 




n n n n c o 

u uu Uo y 


$210 


LDA 


VPB 




p p p p r p 
U UU U oU 




CMP 


VPT 


, VP 1 <— VPB 


p p p p r i 
U UU U 01 




BCS 


o o n 
9ZZU 




p p p p r o 
UUUUbZ 




STA 


VPT 




UUUUoo 


£ o o n 
9 Z Z U 


SBC 






P P P P T A 

U UU U 04 




LDA 


VPB 


; VP VMAX : — 


p p p p r tz. 
UUUUoo 




SBC 


VPT 


; VPB — VP1 


p p p p r r 
UUUUoo 




STA 


VP VMAX 




pppp an 
UUUUo / 




CMP 


TP Y 


. T'nV / T 7T) T 7T\/T 7\ V 

; Iri <— VFVMAX 


P P P P c o 

UUUUoo 




BCS 


o n n 




p p p p r p 




STA 


TPY 




0000 / 


£• o n n 

90OO 


LDA 


TCB 




UUUU / I 




AND 


#0F 


; TCB=TCB MOD lb 


UUUU / Z. 




STA 


TCB 




n p p p n o 
UUUU / O 




LDA 


TCF 




p p p p n a 
UUUU / 4 




AND 


#UF 


,lCr— ICr MOD lb 


p p p p n c 
UUUU / 




STA 


TCF 




UUUU / 




ASL 


A 




P P P PH 1 

UUUU / / 




ASL 


A 




p p p n "7 o 
UUUU / o 




ASL 


A 


;SB1 1COLOK :— 


uuuu / y 




7\ C T 
Ab Li 


A 




000080 




ORA 


TCB 


;TCF * 16 + TCB 


000081 




STA 


TCOLOR 




000082 




PHP 






000083 




SEI 






000084 




LDA 


SCRNMODE 


; Check screen mode 
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n n n n o c 
U U U U OO 




ASL 


A 




r\ n r\ n o r 




BMI 


c n n 

$500 


; Graphics 


r\ n r\ n o ^ 
(J 0(J U / 




LDA 


E_REG 




000088 




ORA 


#BITON5 




o o o o o 9 




BCS 


$400 




0000 90 




AND 


#BITOFF5 




000091 


$400 


STA 


E_REG 




n n n n n o 

0000 92 




LDA 


HMODE 




n n r\ ri n o 




AND 


#03 




n n r\ n n /i 

000094 




BCC 


$410 




n n r\ n n c 

0000 95 




ORA 


#BITON / 




n n n n rs ^ 

000096 


$410 


STA 


SCRNMODE 


; Set screen mode 


00009 / 




LSR 


A 




u u u u y o 




AND 


#01 




r\ r\ r\ r\ n. n 

U ou o y y 




TAY 






nnrn no 
U U U 1 u u 




LDA 


#00 




000101 




ROL 


A 




000102 




TAX 






000103 




LDA 


VMODE0 , X 


;B&W / Color 


000104 




LDA 


VMODE1 , Y 


,4 / 8 Column 


000105 




BIT 


VMODE2 


;Page 1 always 


000106 




BIT 


VMODE3 


; Text of course 


000107 


$500 


PLP 






000108 




JSR 


TBASCAL 


;New base addr . 


000109 




RTS 






000110 




.PAGE 







000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 



Subroutine CURSOR 

This subroutine displays or removes the cursor by inverting the 
character at the current cursor position. 



Parameters : 

Exit : 

A, X, Y: 



none 



Undefined 



CURSOR 



.EQU 

BIT 

BPL 

LDA 

BIT 



SMCURSOR 
$020 
TPX 
HMODE 



;is cursor enabled? 
; if not , exit 
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000130 

\j \j \j -i- \J 


BPL 


$010 


; 4 col : X=TPX 


000131 


LSR 




•80 col • X=TPX/2 


000132 

V V V J- *J i- 


BCC 


$010 




0001 33 


TAY 






000134 


LDA 


(BASE2 ) , Y 


• rrpf pVi p\ -r c 1~ P T 


000135 


EOR 


#80 


/ snd invsirt it 


000136 


STA 


( R A SF 2 ) Y 


* i"in t" "it" Vi.^f'-'V 


000137 


RTS 






000138 $010 TAY 






000139 


LDA 


1 DI OTP 1 \ V 
^ JJrlijij J. / f ± 


f y C L UllCll CIL LCI 


000140 


EOR 


#80 

IT U v 


• anH i ni7"P i "rt" "i t" 

f CL 1 1 111 V J_ _L L_ 


000141 


STA 


(RASF1 ) Y 


• nut" "it" Vi^pIc 


000142 $020 RTS 






000143 


.PAGE 






000144 














000145 








000146 


Single Character Screen 


i\ ci ^vuiiovxc 


l ^iiCiJ-Ci.v^u.t!;-i- \r J. i 


000147 








000148 


This subroutine returns 




■|-Vip> r~ , iiT*TP>n"l - pii r Qnr nn q i t i nn 


000149 








000150 


Parameters : none 






000151 








000152 


Exit : 






000153 


A: character 






000154 


X, Y: Undefined 






000155 








000156 








000157 














000158 








000159 SCRNPICK . EQU 


* 




000160 


LDA 


TPX 




000161 


TAY 






000162 


BIT 


ill i\y Ly i_i 




000163 


BPL 


$010 


• 4 n pol — Y * = TPX 


000164 


LSR 


A 


; 80 Col -- Y := TPX/2 


000165 


TAY 






000166 


BCC 


$010 




000167 


LDA 


(RASE?) Y 


f 1 CL ^^J. L C A L M CA y d 


000168 


BCS 


$ 02 




000169 $010 LDA 


(BASE1 ) , Y 


/ Rsad 6v6n tGxt pacjs 


000170 $020 RTS 






000171 


.PAGE 






000172 














000173 








000174 


Subroutine TBASCAL — Text Base Address 


Calculator 



Apple/// Computer I nformation 
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000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 



This subroutine sets the base address registers, BASE1 and BASE2, 
to point to the current line in screen memory. BASE1 always points 
to column of the current viewport while BASE2 points to column 1. 



Entry TBASCAL: 
Parameters : 



none 



Entry TBASCAL1 : 
Parameters : 

X: Absolute screen line number 

Exit (either entry point) : 
A: Undefined 

X: Absolute screen line number 
Y: Unchanged 



TBASCAL 



TBASCAL1 



$010 



$020 



.EQU 


•k 




CLC 






LDA 


TP Y 


/vertical position 


ADC 


VPT 


; + viewport top 


TAX 






.EQU 


* 




CLC 






LDA 


VPL 


/viewport left: 


BIT 


HMODE 




BPL 


$010 


;if 80 column mode, 


LSR 


A 


;then divide by two 


PHP 






ADC 


BASL, X 


,-base address (LO) 


STA 


BASE1 


; same for both pages 


STA 


BASE2 




LDA 


BASH, X 


;base address (HI) 


PLP 






BCC 


$020 




DEC 


BASE1 


; Odd window adjustme 


EOR 


#0C 




STA 


BASE1+1 


; even page address 


EOR 


#0C 




STA 


BASE2+1 


; odd page address 


RTS 






.PAGE 
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000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 



Subroutine CLREOL 



Clear to End of Line 



This subroutine clears the current line from the current cursor 
position to the end of the line. The starting position may be 
passed in Y using the CLREOL1 entry point. The text base address 
pointers, BASE1 and BASE2, must point to the current line. 



Entry CLREOL: 
Parameters : 



none 



Entry CLREOL1 : 
Parameters : 

Y: Starting horizontal position 

Zero Page Temporary Storage: 
BLANK, TEMPX 

Exit (either entry point) : 
A, Y: Undefined 
X: Preserved 



CLREOL 
CLREOL1 



.EQU 

LDY 

.EQU 

LDA 

EOR 

STA 

BIT 

BPL 

TYA 

BNE 



TPX 

* 

#80+ASC_SP 

SMINV 

BLANK 

HMODE 

$200 



/horizontal position 
; Set up a blank 



80 column clear full line 

LDA 
LSR 
TAY 
LDA 
BCC 

$100 STA 
$110 STA 
DEY 



$150 



VPHMAX 
A 

BLANK 
$110 

(BASE2) , Y 
(BASE1) , Y 



; Start at right edge 



;Load the blank 

; Clear odd column 
; then even column 
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000265 
000266 
000267 
000268 
000269 



000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 



BPL 
RTS 



$100 



/Repeat to BOL 



80 column clear to end of line 



a a a o ""7 a 
OUz / U 


$150 


STX 


TEMPX 


; Save X 


A A A O "~I 1 

(JUUz /I 




CLC 






A A A O "7 O 
U U U Z / Z 




SBC 


VPHMAX 


/Calculate negative number 


A A A O ""7 O 

02 / 3 




TAX 




; of bytes to blank 


r\ n n o ~7 /i 
002 / 4 




TYA 






n r\ n o n £ 
U U U z / 




LSR 


A 




0002 / D 




TAY 






000277 




LDA 


BLANK 


; Load the blank 


000278 




BCS 


$170 




000279 


$160 


STA 


(BASE1) , Y 




000280 




INX 






000281 




BPL 


$180 




000282 


$170 


STA 


(BASE2) , Y 




000283 




INY 






000284 




INX 






000285 




BMI 


$160 




000286 


$180 


LDX 


TEMPX 


/Restore X 


000287 




RTS 







40 column clear to end of line 



$200 



LDA 


BLANK 




STA 


(BASE1) 


, Y 


LDA 


TCOLOR 




STA 


(BASE2) 


, Y 


CPY 


VPHMAX 




INY 






BCC 


$200 




RTS 







#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS .UTL1 . TEXT 

299 

13475 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.60 6@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . UTL2 . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 



.PAGE 



Subroutine CLREOS 



Clear to End of Screen 



000006 


This subroutine clears the screen from the current 


cursor position 


000007 


to the end of the viewport. The CLREOS1 entry allows the line number 


000008 


to be passed in X and the starting column number in 


Y . 


000009 






000010 


Entry CLREOS: 




000011 


Parameters : none 




000012 






000013 


Entry CLREOS1 : 




000014 


Parameters : 




000015 


X: Starting absolute line number 




000016 


Y: Starting column number 




000017 






000018 


Exit : 




000019 


A, X, Y: Undefined 




000020 






000021 










000022 






000023 CLREOS . EQU * 




000024 


CLC 




000025 


LDA TP Y 




000026 


ADC VPT 




000027 


TAX 


; Get starting line number 


000028 


LDY TPX 


; Get starting cursor position 


000029 CLREOS1 .EQU * 




000030 $010 JSR TBASCAL1 




000031 


JSR CLREOL1 


/Clear this line 


000032 


LDY #0 


/Reset starting column 


000033 


CPX VPB 




000034 


INX 




000035 


BCC $010 




000036 


JMP TBASCAL 


/Reset base address 


000037 


.PAGE 





000038 
000039 



Apple / / / CONSOLE 1.31 Source Code Listing » PTC 8/ 2001 » Page 71 of 80 



Apple/// Computer I nformation 



a a a n /i n 
U UU U4 U 


Scroll Text 


Viewport 






n n n n /i 1 

UU U4 1 












U U U U 4 Z 


This 


subroutine scrolls 


the text within the viewport 


P P P P A 1 

U UU U4 o 


one 


line . 


On entry, A must contain an 


T1T~> / T\r~\\rCn\l -P 1 — i r-r i 

UJr/JJUWN rlag ( 


A A A A A A 

U U U U 4 4 


$80 


=> DOWN 


) • 






p r\ p n a c 
U UU U4 o 












n a n a /i 

U UU U4 6 


Parameters : 








A A A A /l "7 

UUUU4 / 




A: Up 


/ Down flag 






A A A A A O 
U U U U 4 O 












r\ r\ r\ r\ a n 

UUUU4 9 


Zero 


Page Temporary Storage: 




A A A A C A 

U UU Uo u 




WORK1, 


WOR2 : Screen pointers 




A A A A C 1 

U UU Uo 1 




FLAGS : 


Bit 7 even / odd flag 


for scroll loop 


A A A A C O 

U UU Uoz 






Bit 6 — up 


/ down flag 




A A A A C O 

U UU Uo J 




TEMPI : 


Starting Y 


index for scroll loop 


A A A A C A 












n rv n n c c 


Subroutines 


called : 






A A A A C 

000056 




TBASCAL1, CLREOL1 






A A A A C 1 

0000b / 












000058 


Exit 










000059 




7\ V 

A, X, 


Y: Undefined 






000060 












000061 






















000062 












000063 SCROLL 




.EQU 






000064 






STA 


FLAGS 


} 


000065 






SEC 






000066 






LDA 


VPHMAX 




000067 






BIT 


HMODE 




000068 






BPL 


$010 




000069 






LSR 


A 




000070 $010 




STA 


TEMPI 


; 


000071 






ROR 


FLAGS 


} 


000072 






LDX 


VPT 




000073 






BIT 


FLAGS 




000074 






BVC 


$020 




000075 






LDX 


VPB 




000076 $020 




JSR 


TBASCAL1 


; 


000077 ; 










000078 $030 




BIT 


FLAGS 




000079 






BVC 


$040 




000080 






CPX 


VPT 




000081 






BEQ 


$080 




000082 






DEX 






000083 






BPL 


$050 




000084 $040 




CPX 


VPB 


r 



; Save UP /DOWN flag 



; Get starting base addresses 



Scroll down 
All done 
Go up one line 



/Scroll up 
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000085 


BEQ 




n o n 
?080 


; All done 


000086 


INX 






; Go down one line 


000087 ; 








000088 $050 LDA 




BASE 1 




n n n n o n 
8 y 


LDY 




T~) 7\ C 77" "1 1 "1 

BASE 1 + 1 


/Copy source address 


n r\ n r\ o. r\ 

uuuo yo 


STA 




T/j.7 j"i T"> TS 1 

WORK! 


; to destination address 


000091 


STY 




WORK1+1 




000092 


LDA 




BASE 2 




000093 


LDY 




BASE2+1 




000094 


STA 




WORKz 




000095 


STY 




WOKrvZ + 1 




000096 


JSR 




1 BAoLALl 


; Get next source address 


000097 


LDY 




1 LlYlr 1 




000098 


BIT 




TP T AfC 




000099 


BPL 




£• r\ h r\ 




000100 $060 LDA 




/ 7~) 7\ 7 -1 O \ \7 

( BASEz ) , I 


/Scroll this line 


000101 


STA 




( WORK2 ) , Y 


; move odd column 


000102 $070 LDA 




(BASE1 ) , Y 


; move even column 


000103 


STA 




/ 7«7 7~1 7,' 1 \ \7 

( WORKl ) , I 




000104 


DEY 








000105 


BPL 




t- n r n 
$0 60 




000106 


BMI 




t- r\ o r\ 

$030 




000107 ; 








000108 $080 LDY 




# 




000109 


JSR 




/~ ' T T"> 77 1 T 1 

CLREULl 


;Clear last line 


000110 


JMP 




1 BASCAL 




000111 


.PAGE 








000112 


















000113 










000114 


Horizontal Shift 








000115 










000116 


This subroutine shifts 


the text within the viewport 


left or right. 


000117 


On entry, A must contain an eight bit signed shift 


offset, negative 


000118 


for left shifts and positive for right shifts. 




000119 










000120 


Parameters : 








000121 


A: Signed shift 


offset 




000122 










000123 


Zero Page Temporary 


Storage : 




000124 


BLANK, TEMPX 








000125 


WORK1, WORK2 : 


Screen pointers 




000126 


FLAGS: Bit 7 




right / left flag 




000127 


Bit 6 




odd / even flag for shift right 


000128 


TEMPI: Positive 


shift offset 




000129 


TEMP 2 : Absolute 


shift column 
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000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 



TEMP 3 : 
TEMP 4 : 



shift right 

shift left - 

shift right 

shift left - 



- starting shift index 
shift count 

- starting clear index 
column for clear 



Subroutines Called: 

CLREOS1, CLREOL1 



Exit : 



A, X, Y: Undefined 



SHIFT 



$010 



$020 
$030 



$040 



.EQU 

TAY 

BEQ 

AND 

STA 

TYA 

CMP 

BCC 

EOR 

ADC 

STA 

ADC 

STA 

LDX 

SEC 

LDA 

SBC 

BCS 

LDY 

JSR 

RTS 

BIT 

BMI 

SEC 
BIT 
BPL 
LSR 
STA 
LDA 
BCS 
LDA 



$020 

#BITON7 

FLAGS 

#80 

$010 

#0FF 

#00 

TEMPI 

VPL 

TEMP2 

VPT 

VPHMAX 
TEMPI 

$030 
#00 

CLREOS1 

FLAGS 
$060 



HMODE 

$040 

A 

TEMP 3 
#BITON6 
$050 
#00 



/Nothing to do 

; Set right / left flag 

;Make shift count positive 

Absolute shift offset 
Absolute column number 
for base address 



/Shift entire viewport 



; Set up for shift right 



; Set starting index for shifting 
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; Set odd / even flag 

; Set index for clearing 

; Set up space character 

; Set up for shift left 

; Set count for shifting 

; Set index for clearing 

; Get base address 



; Get shifted base address 



/Shift this line right 



000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 



$050 



$060 



$070 



SHIFT1 



$010 



$020 



SHFTRT 

$010 

$020 



ORA 
STA 
LDY 
DEY 
STY 
LDA 
EOR 
STA 
JMP 

TAY 
BIT 
BMI 
SEC 
ROL 
STA 
INY 
STY 

JSR 
CLC 
LDA 
BIT 
BPL 
LSR 
PHP 
ADC 
STA 
STA 
LDA 
PLP 
BCC 
DEC 
EOR 
STA 
EOR 
STA 
BIT 
BMI 

LDY 
BVC 
LDA 
STA 
LDA 



FLAGS 
FLAGS 
TEMPI 

TEMP 4 

#80+ASC_SP 
SMINV 
BLANK 
SHIFT1 



HMODE 
$070 

A 

TEMP 3 

TEMP 4 

TBASCAL1 

TEMP 2 
HMODE 
$010 
A 

BASL, X 
WORK1 
WORK2 
BASH, X 

$020 

WORK1 

#0C 

WORK1+1 
#0C 

WORK2+1 

FLAGS 

SHFTLF 

TEMP 3 
$020 

(BASE2) , Y 
(WORK2) , Y 
(BASE1) , Y 
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/Clear beginning of line 



; Go to next line 



/Shift this line left 
; Get shift count 



000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 



$030 
$040 



$050 
$060 



SHIFT2 



SHFTLF 



$010 



$020 



STA 
DEY 
BPL 
LDA 
BIT 
BPL 
LSR 
TAY 
LDA 
BCC 
STA 
STA 
DEY 
BPL 
BMI 
TAY 
LDA 
STA 
LDA 
STA 
DEY 
BPL 

CPX 
INX 
BCC 
JMP 

LDY 
STX 
LDX 
LDA 
STA 
DEX 
BMI 
LDA 
STA 
INY 
DEX 
BPL 
LDX 
LDY 
JSR 
JMP 
.PAGE 



(WORK1) , Y 

$010 
TEMP 4 
HMODE 
$050 
A 

BLANK 
$040 

(BASE2) , Y 
(BASE1) , Y 

$030 
SHIFT2 

BLANK 

(BASE1) , Y 
TCOLOR 

(BASE2) , Y 

$060 

VPB 

SHIFT1 
TBASCAL 

#00 

TEMPX 

TEMP 3 
(WORK1) , Y 
(BASE1) , Y 

$020 

(WORK2) , Y 
(BASE2) , Y 



$010 
TEMPX 
TEMP 4 
CLREOL1 
SHIFT2 



Apple / / / CONSOLE 1.31 Source Code Listing » PTC 8/ 2001 » Page 76 of 80 



Apple/// Computer I nformation 



000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 



Dump and Restore Contents of Viewport 

This subroutine will dump or restore the contents of the viewport to 
or from the caller's buffer. On entry, A must contain a dump/restore 
flag. ($00 => Dump $80 => Restore) 

Parameters : 

A: Dump / Restore flag 

Zero Page Temporary Storage: 

WORK1, WORK2 : Extended pointers to caller's buffer 
FLAGS: Bit 7 -- odd / even move count flag 

Bit 6 dump / restore flag 
TEMPI: Starting move index 
TEMP 2 : Move count 



Exit : 



A, X, Y: Undefined 



000288 


SCRNDUMP 


.EQU 


* 


000289 




STA 


FLAGS 


000290 




JSR 


CURSOR 


000291 




LDA 


VPHMAX 


000292 




STA 


TEMP 2 


000293 




INC 


TEMP 2 


000294 




BIT 


HMODE 


000295 




BMI 


$010 


000296 




ASL 


TEMP 2 


000297 




ASL 


A 


000298 


$010 


LSR 


A 


000299 




STA 


TEMPI 


000300 




ROR 


FLAGS 


000301 




CLC 




000302 




LDA 


SCLIST 


000303 




ADC 


#03 


000304 




STA 


WORK1 


000305 




LDA 


SCLIST+1 


000306 




ADC 


#00 


000307 




CMP 


#0F0 


000308 




LDX 


1401+SCLIST 


000309 




BCC 


$020 



;Turn cursor off 



; Set work pointers to 
; to caller's buffer 
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U UU3 1 U 




SBC 


41- n 
#oU 


U UU3 1 1 




INX 




p n n q i o 


£ n o n 
9 02 


STA 


WORKl + 1 


n n n q i "3 




STX 


14 1 +WORK1 


n n n q i /i 
U UU3 1 4 




LDA 


1 EMP z 


UU J 1 b 




LSR 


A 


p r\ p o i /" 

UU 3 1 6 




ADC 


WORKl 


UUU31 / 




STA 


WORKz 


n n n q i o 
(JUU olo 




LDA 


TaT T"> TV "I 1 1 

WORK1+1 


(j uu 3 i y 




ADC 


#00 


n n n *d o n 
(J UUoz U 




STA 


TaT j"i T"> TV O 1 1 

WORKz + 1 


UUUJZl 




STX 


1 /I n 1 I TV/ /"n n TV O 

14 1 +WORKZ 


(J UU3ZZ 








p n n q o q 


; Copy the 


contents 


of the window 


U UU3Z 4 








U UUoz 




LDX 


VPT 


U UU3z o 


9 1 


JSR 


1BAS0AL1 


UUUoz / 




LDY 


1 EMP 1 


n n n q o o 
U UUoz o 




BIT 


FLAGS 


n n n q o n 
U UU3z y 




BVS 


9120 


U UU33 U 








U U U 3 3 1 




BPL 


$ 1 1 5 


U UU33z 


9110 


LDA 


( BAbhz ) , 1 


n n n q ^ q 




STA 


/ t„i r\ T~j TV O \ V 


P P P O O A 

U UU334 


9 1 13 


LDA 


/m\ rrl \ \7 

( BAbh 1) , 1 


UUUjjj 




STA 


( WUKivl ) , I 


U U U 3 3 b 




DEY 




r\ n n "3 "3 1 
U U U 3 3 / 




BPL 


9 1 1 U 


Pi f~\ Pi 1 1 Q 

U U U 3 3 o 




BMI 


9 1 4 U 


Pi n n q o o 

u UU33 y 








U UU34 U 


$120 


BPL 


$ 1 3o 


000341 


$130 


LDA 


(W0RK2 ) , Y 


000342 




STA 


(BASE2 ) , Y 




9 1 3 3 


LDA 


( WORKl ) , Y 


n n n q a a 
0034 4 




STA 


( BASE 1 ) , 1 


n n n o a c 
000 340 




DEY 




r, r\ r, i a r 
0034b 




BPL 


9130 


n n n q /i t 
3 4 / 








n n n q a o 
00034b 


9140 


CLC 




00034 y 




LDA 


TaT nnT/ 1 

WORKl 


000350 




ADC 


TEMP 2 


000351 




STA 


WORKl 


000352 




BCC 


$150 


000353 




INC 


WORKl +1 


000354 


$150 


CLC 
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000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 



$160 



LDA 
ADC 
STA 
BCC 
INC 
CPX 
INX 
BCC 

JSR 
JSR 
RTS 
.PAGE 



WORK2 

TEMP 2 

WORK2 

$160 

WORK2+1 

VPB 

$100 

TBASCAL 
CURSOR 



/Restore cursor 



ZPOUT 



This subroutine saves the driver's zero page data. 



ZPOUT 
$010 



LDX 
LDA 
STA 
DEX 
BPL 
RTS 



#ZPLENGTH-1 
ZPDATA, X 
ZPSAVE, X 

$010 



; Zero Page save area length 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS .UTL2 . TEXT 

382 

16487 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.60 6@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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